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Foreword 


Over ten years, when promoting and teaching APL to the widest public, 
I have frequently stated that it is not sufficient simply to know the 

language in order to make good use of it. 

Too often I have met people, taught in haste or incompletely, or by clumsy 
programmed teaching, who fully in good faith have written cumbersome 

programs with rigid instructions. Such styles of writing gravely compromise 
possibilities of subsequent development, make it difficult to maintain any 
position and seriously harm APL's image. 


May the following pages help to demonstrate that simple, short, clear 
programs which can be naintained may be created which are at the same 
time more efficient than "brontasaurus" programs, which are all to often 
encountered and which are even sometimes sold by computer manufacturers. 


This work is intended equally for those wishing to study APL in depth, and 
for those who have the task of teaching it properly. For them, I have 
deliberately chosen themes which are useful in the field of advanced 
application of APL, namely assistance in decision making. 

The solutions presented cover a wide range of classic APL methods. 


The answers should also interest APL users wishing to equip themselves with 
an excellent "Kit of Tools" for solving everyday problems. 


Even though there is some progression in complexity of the subjects presented, 
right from the start the solutions call upon the full richness of the 
language, without exception. It is therefore advisable to start reading 

this work only after having acquired an adequate basis in the whole language, 
or with guidance from someone with considerable experience of APL. 

I have purposely excluded any subject requiring the use of files, on the one 
hand because of the systems offered by manufacturers, and on the other hand 
because the use of files does not significantly qualify either intellectual 
progression or the general programming principles. 


1 hope that this book will promote the advancement of APL in all sectors, 
professional as well as university. 


PROBLEMS 


IMPORTANT POINTS 


It is difficult to attribute a level of difficulty to a subject, and 
the following order is very subjective. In any event, start by solving 
the subjects which feature under heading “Preliminary work", as these 
are essential for understanding what follows. 

Afterwards do not hesitate to tackle the subjects in the order which 
suits you, according to your interest in the themes 


Most of the subjects are divided into stages and this is the best method 
for readily solving sometimes complex problems. Abide by these stages, 
because each presents a classic procedural step. 

Solve each subject completely, even though in order to achieve this, 
you may have to consult the answers between the stages. 


Although you may have completely solved a subject, consult the answer. 
The method represented may be different from yours; comparison can 
only be beneficial. 


Some subjects, and numerous answers make a reference to the methods 
studied in a course book. This is the work "Learning and Applying the 
APL Language", by the same author. 


To facilitate reading of the processing examples, the parts typed by 
hand are printed on a grey strip, while the computers answers are 
printed normally: 


Computer's Parts typed by 
answers hand 


MODE 
CLIENT CODE. 


NEW ADDRESS 
254, LONDON ROAD } 


. 467 


SOUTHAMPTON 
HAMPSHIRE 


MODIFICATION RECORDED 


PRELIMINARY WORK 


Some simple functions can facilitate expression of everyday tasks in APL, 


and consequently ease writing and maintenance of programs. 
Each APL user has his own techniques, and his own set of functions, which he 
affectionately calls his "Kit of Tools". 


Here are some functions which I frequently use. They are very simple and 
extremely useful. 


For the remainder of this work, we will assume that these functions are 
known. They will be used in statements as vell as in answers, 80 as to 


facilitate programming. 


Of course these initial themes to be considered represent only a starter. 


FIRST THEME 


It is quite simple to designate a series of numbers by writing, for 
example: 
345 to 361 


The same flexibility can be obtained in APL, by writing a dyadic function 
called 70, proceeding as follows: 


67% TÒ 82 
67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 
You can already write such a function, 


It can however be generalised, If we wish to đesignate a series of values 
some of which are consecutive, we can use the following formula: 


41 52, 56 to 65, 77 83 98, 105 to 112, 123 134 
This expression presents the following series of numbers: 


41 52 56 57 58 59 60 61 62 63 64 65 77 83 98 105 106 107 108 109, 
110 111 112 123 and 134 


vizs 


Can you generalise your function TO so as to provide a similar expression: 


21 32 TO 36 44 51 59 TO 62 87 88 91 
21 32 33 34 35 36 44 51 59 60 61 62 87 88 91 


SECOND THEME 


In a program it is common practice to print a message and then jump to 
another instruction. 
For example: 


[5] '----» ABNORMAL SHAPE' 
16] +AGAIN 


These two instructions can be reduced to a single expression: 
[5] 2»AGAIN AFTER ‘ABNORMAL SHAPE" 


Write this auxiliary function, called AFTER- 


THIRD THEME 


We often have to print an array of characters and a numeric vector facing eac! 
other. 


For example, here is the array DWARFS, which contains a list of names: 


Doc 
SNEEZY 
BASHFUL 
GRUMPY 
DOPEY 
SLEEPY 
HAPPY 


and here is the vector DIAMS, which contains outputs of precious stones: 
308 144 506 509 481 321 624 


We wish to print this information in the form of an array, numbering the 
lines, as follows: 


EEN 


i DOC 308 
2 SNEEZY 144 
3 BASHFUL 506 
4 GRUMPY 509 
5 DOPEY 481 
6 SLEEPY 321 
7 HAPPY 624 


This requires the vectors to be transformed into characters, and placed 
vertically. A function VERT will serve to carry out this conversion, It 
will accept the printing format of the vector as left-hand argument. 


For example: 


6 0 VERT 34 71 89 30 


34 
7l 
89 
23 
30 


or again: 
6 2 VERT 44.5 67.32 80 29.175 
44.50 
67.32 
80.00 
29.18 
Write this function VERT. 


The presentation sought would be obtained by: 


(1 0 VERT ipDIAMS),' ',DWARFS, (5 O VERT DIAMS) 


FOURTH THEME 


However, it appears that the output of precious stonos has considerably increased 
as compared with last week. This production has been registered in the vector 
MIDAS: 


292 100 402 477 388 359 535 


It is tempting to calculate the percentage output increase from one week to 
the next. 
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we RO MID 
5 44 26 7 24 "11 17 


The result has been expressed in whole percentages. Hence, DOC has recorded 
an increase in output of 5%, whereas SLEEPY'S output has diminished by 112. 


The function PC is one of the essential tools. It must also accept vectors 
in addition to matrices as operands. 

The left-hand operand is the present value; the right-hand operand is the 
previous value. 

It remains only for you to write it. 


FIFTH THEME 


A function must serve to combine two vectors into a matrix. Starting from 
vectors, it can serve on numerous occasions, for preparing a matrix which wil: 
be treated by another function. We will use it for the topic "Crossed 
nunbering". 


¥RE74 ATH 24678 


Boon 
Ou0BM 


"TOPIO/. WETH : "SIMEDE. 


SETTLEMENT OF ACCOUNTS 


A company wishes to follow its accounts month by month. The names of 
the following headings are contained in the matrix NECTAR: 


SALARIES/CHARGES (NECTAR has 14 lines and 20 columns) 
HEAVY PLANT 

SMALL EQUIPMENT 

SEEDS/FERTILIZER 8 cost items 

RATES 

PETROL 

COMMERCIAL COSTS 

DUTIES AND TAXES 

TOTAL EXPENDITURE 


CEREALS 

EARLY CROPS } 3 revenue items 

FRUIT 

TOTAL REVENUE 

=- RESULT — (Total revenue)-(total expenditure) 


At the begining of the year, a matrix of 14 lines (one per item) and 12 
columns (one per month), is initialized at zero. This is called BOOK. 

Then, month by month, the values actually observed for the month which has 
just ended are updated. For example, at the end of April, the values for the 
month will be entered in the fourth column of BOOK. 


So as to avoid a task which the computer could do, we will enter only the 
11 basic values, thus leaving the programme to calculate the total costs, 
total returns and the month's result. 


The function assigned this task is called RECEIVES. It accepts the month 

number as left-hand argument, and the ll measured values as right-hand 

argument as inthe following example: 

4 HECHIVES 63200 0 2856 3720 5000 1630 4169 800 11700 89650 61260 
——— 

1 


for April 8 expenditures 3 returns 


sjes 


FIRST STEP 


You are asked (would youbelieve it?) to write the function RECEIVES. work 
on a BOOK which is already partly filled up to March for example. 


SECOND STEP 


We wish to suitably display these results for a given period. For example, 
for the period April-May-June, we should write: 


DISPLAY A 5 € 


The result must be presented thus: 


4 5 6 
SALARIES/CHARGES 63200 57800 o 
HEAVY PLANT o 12600 o 
SMALL EQUIPMENT 2856 1908 o 
SEEDS/FERTILIZER 3720 4212 o 
RENTS 5000 5000 o 
PETROL 1630 1120 o 
COMMERCIAL COSTS 4169 930 o 
DUTIES AND TAXES 800 2100 9 
TOTAL EXPENDITURE 81357 85670 o 
CEREALS 11700 9980 o 
EARLY CROPS 89650 97500 o 
FRUIT 61260 74600 o 
TOTAL REVENUE 162610 182080 o 
-—RESULT-— 81235 96410 o 


In this example, the values for June have not yet been entered. 


THIRD STEP 


We do not want the function to print the months for which all the values are 
nil. Hence, in the above example, June should not have appeared. 


Could we also print the months clearly (JANU FEBR ...) rather than their 
number? 
Of course, and when assuming the function we will still use the numbers. 


FIVE COLUMNS INTO ONE 


The total sales of several hundred articles at 5 selling points has been 
recorded in the numeric matrix LISBASKET. These products are classified 
into 20 families (frozen, early crops, fish, spices, ....), a family 
code between l and 20 being attributed to each article. 


The vector LISFACO contains the family codes associated with the articles 
referenced in LISBASKET. We assume also that LISBASKET and LISFACO are 
Classified in increasing order of family codes. 


Besides these data, two matrices of characters are also supplied: 


- LISSP: matrix of the names of the 5 selling points (5 lines, 10 


columns): 
LEEDS 
DOVER 
CARDIFF The matrix contains several blank 
PERTH columns to the right. 
POOLE 


7 LISFA: matrix of family names (20 lines, 15 columns): 


FROZEN 
EARLY CROPS 
FISH 

SPICES 


MEAT 
PORK PRODUCTS 
DRINKS 


ves ete... 


We intend simply to print the matrix LISBASKET by dividing it family by 
family, with an indication of the total sales for each fanily. 


Since printing is undertaken on continuous computer paper, we want to print 
as many families as possible on one page, taking care however, that one 
family never overlaps on to two consecutive pages. 


The final presentation is prescribed; it must conform with the presentation 
of the following example. 
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EXAMPLE OF PAGE SETTING 


CARDIFF 


CARDIFF 


80 


CARDIFF 


83 
42 


125 


PERTH 


64 
51 


115 


POOLE FROZEN 


POOLE EARLY CROPS 


POOLE FISH 


23 
23 


46 


CARDIFF 


PERTH 


20 
3M 
23 
10 


64 


PERTH 


62 


52 
122 


POOLE SPICES 


13 
L4 


27 
5 


54 


The prescribed presentation comprises: 


- In front of each family, a header comprising: 


- a blank line 
- the list of selling points, followed by the family name, 
- à blank line. 


- Lines extracted from LISBASKET, concerning this family, 


- finally; indication of the family total, with: 


- a line of dashes, 
- the total of each selling point, 


- a blank line. 


In other words, for a family of n articles, the computer must print n*6 lines, 


PAGE SETTING 


Since the number of lines which can be printed on one page (or rather, say, 
a draft -screen if you want to be taken seriously by data processors!) 

is subject to variations according to the paper used, we will register 

it in the global variable DRAFT. 


The most common paper has 66 lines per draft -screen, assumed that the draft- 
screen had only 33 lines, so as to clearly show the page jumps. 

Moreover, the graduations have been printed on the left, so as to facilitate 
referencing of the lines. Obviously these graduations should not be repro- 
duced. 


This example demonstrates that it has been possible to print three families 
on the first draft.-screen, but that there was not enough space left to 
print the fourth. The computer has therefore passed a sufficient number of 
blank lines so as to start at the top of the following draft-screen, 


IMPORTANT: It is assumed that no family comprises more lines than can be 
printed on one draft -screen, including header and totals. 


SELECTED INVOICES 


We have information regarding the settling of invoices issued by a company. 
This information is contained in two variables: 


vector AMOUNTS matrix DATES 
7700 3.73 7 2 
12350 7 1 21 1 
6300 7 1 14 3 
7620 12 1 2 2 
9700 12 1 28 a 
33200 12 L 22 1 
9100 15 2 30 4 
5120 16 2 a, 3 

ete ... . . 


AMOUNTS is the vector of the amounts of the invoices, whereas the four 
columns of DATES represent respectively the day and month of issue of the 
invoices, and the day and month of their payment. 


The aim is to print certain selected parts of this data. 


FIRST STEP 


We are asked to write a function called PRINV, which will have no arguments 
(it will work directly on the global variables AMOUNTS and DATES). It must 
ask which month we want to select, extract the invoices issued during this 
month and then print-inthis order: 


- the month when issued 
- the day issued 
- the amount 


- the day and month of payment. 


An example is given below. The user has requested print-out of the February 
invoices. 
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PRINV 
MONTH SELECTED 
D: 


MONTH DAY AMOUNT PAYMENT 


15 9100 30 
16 5120 8 
16 10600 9 
20 17430 E 


ou 


eee ete sae 


SECOND STEP 


We now want the month of issue to be printed clearly, with four characters only, 
so as to obtain the following presentation: 


MONTH DAY AMOUNT PAYMENT 


FEBR 15 9100 30 4 
PEBR 16 5120 8 3 
FEBR 16 10600 9 3 
FEBR 20 17430 1l 5 ies BTC cu. 


THIRD STEP 


We want to improve selection in such a way as to be able to extract several 
months, the list of which will be entered by means of the question "MONTHS 
SELECTED". 

This list can be entered in an explicit manner, for example by answering 

3 6 7 8, but we also want to constitute it by means of three auxiliary words. 


These three words (variables or functions) will be: 


- ALL which will cause all the months to be printed, 


= 20 which will serve to express a series of months in the 
form 6 TO 10 (in other words: 6 to 10), 


- EXCEPT which will allow exceptions to be specified. For example: 


ALL EXCEPT ? 8 or again (5 TO 12) EXCEPT 8 
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FOURTH STEP 


We wish also to carry out selections on the amounts of the invoices, by means 
of a second question entering into the performance of PRINV. 


Here again, auxiliary "Tools" should provide the following types of answer: 
- ALL to obtain all invoices issued during the selected 


months, 


- AMOUNTS 2 9000 and all similar types, to carry out selection 
by simple comparison, 


AMOUNTS BETWEEN 5000 10000 


to obtain all the invoices issued during the 
given months, to amounts between 5000 and 10000 
francs. 


Note that the significance of the word ALL is not the same in the first and 
second questions. 


We will encounter an example of such a selection in the fifth step. 


LAST STEP 


In order to improve presentation, we want the name of the month issue to appear 
once only, instead of being repeated as many times as there are invoices 
printed. An example is given below: 

It is advisable to check the answer even when only one month is selected. 


Booted 
MONTH SELECTED 
: MAL BE € 20 4 
AMOUNTS SELECTED 
n 
JAGR BRIER. Hood Soca 
MONTH DAY AMOUNTS PAYMENT 
JANU 7 7700 7 2 
7 6300 4 3 
12 7620 2 2 
FEBR 16 5120 8 3 
21 6000 25 2 
21 6300 5 6 


aes ete l.l. 


NOW, THROW AWAY MY BOOK 


It is not possible to introduce a large vector into the terminal in one go. 
Also, to introduce a large text, some must be catenated end to end with 
lines entered successively on the keyboard, so as to form a large vector. A 
function will provide for this. 


In order to indicate end of text, the user will type a carriage-return. 


Would you know how to write this function? Here is an example: 


E soe: 
TYPE YOUR TEXT; FINISH WITH A CARRIAGE-RETURN: 


d HERE IS THE FIRST LINE OF A TEXT TOTALLY DEVOID OF 
= LITERARY INTEREST, BUT WHICH HAS THE ADVANTAGE OF 
T DEMONSTRATING CERTAIN TYPOGRAPHICAL FEATURES. 

a NOTICE THAT A COMMA IS ALWAYS FOLLOWED BY A BLANK, 


“THE SEMI-COLON ITSELF BEING PRECEDED AND FOLLOWED 
z BY A BLANK. THE DINES INTRODUCED ARE, OF COURSE, 
IE OP UNEQUAL LENGTH, 


The result is a vector called PROSE, which comprises 355 elements. The blanks 
have been inserted by the program at the end of each line, so as to prevent the 
last word of a line being stuck to the first of the following, as for example: 


DEVOIDOFLITERARY 
To demonstrate, here is the print-out of a part of the text obtained: 
‘200 it PROSE 
HERE IS THE FIRST LINE OF A TEXT TOTALLY DEVOID OF LITR 
ERARY INTEREST, BUT WHICH HAS THE ADVANTAGE OF DEMONSTRAT 


ING CERTAIN TYPOGRAPHICAL FEATURES. YOU W 
ILL NOTICE THAT A COMMA I 


Of course, this text is cut by the computer "blind" when the line is complete, 
the above text being printed with a width of 60 characters per page 
(OPW<60) . 


You will no doubt have guessed what the next step of this topic will be. 
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SECOND STEP 


Since the computer does not offer good presentation, let's help it. 


A text has been entered in the form of a vector and we intend to print it in 
a document whose width will be given as argument. 

We must therefore write a function instructed to divide the text into words, 
and to assemble the lines obtained into a matrix having exactly the prescribed 
width. 


As a first step, we will assume that we can cut the text at any place 
where a blank appears. 


Here is an example of how this is done. We have requested a matrix with a 
width of 65 characters: 


65 PRINTEXT PROSE 


HERE IS THE FIRST LINE OF A TEXT TOTALLY DEVOID OF LITERARY 
INTEREST, BUT WHICH HAS THE ADVANTAGE OF DEMONSTRATING 
CERTAIN TYPOGRAPHICAL FEATURES. YOU WILL NOTICE THAT A 

COMMA IS ALWAYS FOLLOWED BY A BLANK : THE SEMI-COLON ITSELF 
BEING, PRECEDED AND FOLLOWED BY A BLANK. THE LINES INTRODUCED 
ARE, OF COURSE, OF UNEQUAL LENGTH. 


It will be appropriate now to refine this rough draft. In fact, sone 
punctuation marks (semi-colon, question or exclamation mark, colons) are 
preceded by a blank (there are others also). It would be unsightly to cut 
a text on this blank, because the following line would start with the 
punctuation mark. You can test your solution on this extract from the 
Fruits of the earth André GIDE: 


60 PRIMTEXT GIDE 
And now, Nathaniel, throw away my book. Shake yourself free 
of it. Leave me. Leave me; now you are in my way; you hamper 


me; I have eaaggerated my love for you and it occupies me 
too much. I am tired of pretending I can educate anyone. 


It can clearly be seen here that cutting the second line was badly done. 
Can you do better? 


"HOPE” AND "TRUTH"? 


The array HOPE contains the sales estimates of three companies for the 
coming 12 months. 


150 200 240 260 290 300 300 300 280 240 220 200 
320 400 420 400 400 390 380 370 360 350 350 350 
290 350 300 250 200 150 150 200 270 340 420 500 


The array TRUTH contains the scales actually recorded up to a date. It 

is therefore an array which itself also has three lines and twelve columns, 
of which only the left side is fitted, until the results of the last month 
are known. 


150 178 233 270 0 0 0 o 0 © 0 o 
350 437 477 281 0 © 0 0 0 0 o 
280 478 310 260 0 0 0 o 0 O0 O0 
We wish to present a comparison between estimates and actual achievements, 
in the form of a single array. We will show the significant differences 
by the signs * or -, in accordance with the pattern below 


TRUTH COMPARE HOPE 

150 150 200 178- 240 233 260 270 
320 350 400 437 420 477+ 400 281- 
290 280 350 478+ 300 310 250 260 


This example shows alternate columns of estimates and actual achievements. 
On the right of these, the * and - signs show relative differences 


greater than plus or minus 107. 
For example, 178 is 11% below the 200 estimated, hence the - sign 


477 is 13.62 above the 420 estimated, hence the + sign 


The program must of course automatically eliminate months whose results 
are not yet known, so as to display only the others. 


Writing the function COMPARE can be divided into three phases, as shown 
on the following page. 


4 
2/ 


3, 
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Extraction of columns for which results are known. 
Imbrication of the two arrays thus obtained, by alternating their 
columns. 

This can be obtained by means of an auxiliary function which can serve 
on several other occasions, since the problem raised here is very common, 
Here is how such a function should be used. 
If U and V are the two following matrices: 1 9 5 5 30 
9000 and 6 7 
1505 88 


We can write: 


U IMBRICATÉS V 


roH 
oo w 
vow 
oxo 
oou 
wow 
wou 
oww 


The function should preferably also accept vectors as operands: 


di b7 do 63 IMHRICATES 14 58 66 42 
21 14 37 58 89 66 42 


Formatting and indicating differences by appropriate signs. 


Best of luck! 


EVERYTHING IS IN THE PRESENTATION 


Suitably presenting an array of results is such a common problem that one 
should not hesitate to devote a few functions to it, which are simple but 
adequate for solving most typical cases. 


Here for example is an array called ARR: 


INDEX 100 150 200 250 300 350 TOTAL 
MEN 403375 402480 399950 359667 187752 83673 1836897 
125 177 95 63 24 9 
3227 3440 4210 5709 7823 9297 
WOMEN 695727 704573 429704 460161 84007 53334 2427506 
207 167 88 81 n 6 
3361 4219 4883 5681 7637 8889 


TOTAL 1099102 1107053 829654 819828 271759 137007 4264403 


It is scarcely pleasent to read such an array. Its presentation can be 
considerably improved by marking out the lines and columns at regular 
intervals, by means of a function. 


This function will receive as arguments, besides the name of the array: 


- the number of lines to be marked out, 


- the position of the first (i.e. the index of the line after 
which it must be marked out), 


the spacing between two successive lines, 


the same three pieces of information for the columns. 


The resulting array will be framed automatically, to give the array on the 
following page. 


It is seen that the presentation obtained is more than adequate. 


403375 402480 
125 117 
3440 


704573 429704 
88 
4883 


829654 | 4264403 


The left-hand argument indicates that 3 lines are marked out. The first 
will be placed after the lst line of data, and they will be separated from 
each other by 3 lines of data. 


Two differences between marking out of the lines and of the columns may be 
Observed: 


1 - In order to mark out the horizontal lines, the lines of data must 
be SEPARATED. This is not necessary for the vertical lines, which 
are situated in the blank columns of the initial array. 


2 - The array is formed above and below by two horizontal lines. On 
the right and left, it is advisable to separate the data from the 
framing lines by an additional blank column. 


MONTE-CARLO METHOD 


A factory wishes to follow closely the manufacturing costs of six important 
products, They therefore proceed to cost the prices of the elements which 
are used in their manufacture: raw materials, prefabricated components, 
energy, labour, etc .... which we shall henceforth call the basic prices. 
These basic prices are introduced in a vector, called COSTING, of 40 elements. 


These basic prices are thus balanced differently for each of the six 
products. The matrix BEARINGS (40 lines, 6 columns) containing the 
balancing coefficients to be applied to each basic price for each product. 


APERITIF 


Calculate the six manufacturing costs, 


MAIN COURSE 


We wish to study the sensitivity of these manufacturing costs to variations 
in basic prices, so that they can be forecast during the coming months. 
For this, we will proceed as follows. 


For each basic price, we assume a minimum and maximum value, between which 
it will probably fall. We will call this array ASS, which will be consti- 
tuted manually (2 by 40). 


However, these prices will not all simultaneously take their highest or 
lowest value. A good way of simulating the course of things consists of 
generating random prices between the limits given by ASS, and to calculate 
the resulting manufacturing costs. 


Proceeding with x random selections, we will obtain n sets of 6 prime costs. 
After these n tests, the six minimum manufacturing costs, and the six 
maximum manufacturing prices. It is interesting to compare them with the 
prices which we would obtain by taking only the low assumptions, or only 
the high assumptions. 


A specimen procedure is set out on the following page. 
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SPECIMEN PROCEDURE 


For the requirements of this example we are limited to 3 products, with 
only 15 elements entering into their composition. The matrix BEARINGS thus 
has 15 lines and 3 columns. 


Here are the various data which enter into the process: 
PROCESS: 45 61 24 34 53 36 22 24 29 17 37 61 62 ll 62 


8 1 7 20 28 0 4 1 5 21 1l 2 15 0 

O BEARINGS 1 20 4 0 4 15 13 s 3 2 F es '& $15 
2 1 8 16 5 1l] 11 ,8 4 16 4 5 9 o3 7 

ASS: { 44 65 20 35 53 36 20 30 24 17 35 58 60 11 55 
t 46 70 30 36 60 40 25 35 35 19 38 70 70 13 62 


The actual production costs amount to 4942 4530 and 3870, after computing. 


We then write a function called TESTASS, to which we give the number of 
random selections required as left-hand argument and the range of price 
assumptions as right-hand argument. 

Here is the result obtained for 10 random selections: 


10 FESTASS ASS 
5049 4615 3993 * minimum costs 
5341 4790 4101 + maximum costs 


We can compare these results with those which would be obtained by applying 
the assumed low values, or the assumed high values, to the basic products: 


- with all the lowest prices, we have: 4897 4397 3772 
- with all the highest prices, we have: 5493 4982 4348 


It is seen that, on comparing these extreme values TESTASS gives more 
reasonable results, certainly closer to reality. 


This exercise illustrates a range of methods consisting of simulating the 
possible behaviour of a pattern bv means of random selections. These method: 
are known under the generic term of "Monte-Carlo Methods". APL renders 
their use particularly easy, but interpretation remains the task of 
statisticians, 


THE MOST USEFUL FUNCTIONS 


It is very agreeable to have a function which prints all the functions of 
a workspace. We propose writing such a function here. 


A loop will survey all the functions of the workspace, whose names are 

given by DNL 3. Each function will thus be printed by means of its canonical 
representation (CR. for this subject see the course book pages 270 and 

273. 


FIRST DRAFT 


As a first step, we will print all the functions in alphabetical order, 
following the presentation of the following page as closely as possible. 


We will simplify the problem by assuming that the names of the functions 
of the workspace are made up from only the 26 letters of the alphabet 
(not underlined) and the 10 numbers, We will also assume that they are 
short enough to enable the classifying method shown on pages 174-175 

to be applied. 


IMPROVEMENTS 


As a second stage, we will assume that the workspace contains locked functions 
and functions which contain no instructions, which may occur in error. 

Since these empty and locked functions cannot be printed their names will 

be put on one side and printed at the end of the work. 


Moreover, it would be absurd for the LIS? function which prints the others 
to be itself printed. Hence, it is advisable to eliminate it from the list 
of functions to be printed, without locking it. 


You will recall that the canonical representation of a locked function is 
a matrix of dimensions 0 0, 
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SPECIMEN OF PRINT-OUT 


—————————AAAAA^————^^^^A^A^4A——^ ——————81 CONTRACT 


ReCONTRACTER M;DIM 
{1} DIMeoM 
( 2] ReDIM, (M0) /M, [0.5] ipM, M 


wane mM ———————— DERIVE 


ReDERIVE POL 
[ 1] POL-((pPOL)-1) TAKE POL 
[ 2] RePOLx (1+pPOL)~1pPOL 


—————--—-------------- ----—-—-----2------ MOB 


MeN MOB X 
L1] M-0,* X 
[2] He Ohh - CA) a 
(3) Mele 


€——À -—-—- --—--—------- ——21771 


SeSIDES AREA; P 
[ 1) Pe 0.5 x +/SIDES 
( 2] Se(x/P,P-SIDES)* 0.5 


mE ——————— 5 


ReA TITLE B BLANKS; WIDTH 
1] WIDTH-(pB) [2] 
BLANKS+LO.5xWIDTH-pA 
3] A-WIDTHt(BLANKSo' °),A 
4] ReA, ]'-', (118 


N 


------------------------------22--2-2--2--------- EMPTY AND LOCKED FUNCTIONS 


----------------------------------------------- PRINT-OUT FINISHED 


SEARCHING FOR SKILLED WELDERS 


Some trades are subjected to very strict controls. As an example we will 
take welders, who can perform only certain special jobs after obtaining 
the necessary qualification: welding of high pressure piping, inert-gas 
welding, weldingon to very thick materials, etc ... 


Some skills are maintained permanently, others however, are lost if the welder 
has not had occasion to practice them for some time on the worksite. 

Each welder is therefore studied, and the date of the last occasion on 

which he has practiced his skills is carefully noted. 


In order to simplify the exercise, we have assumed that these dates comprised 
only the years: 78, 79, etc ... 


The qualifications are designated by a numeric code of three figures, and 
we assume that a welder has a maximum of five qualifications 


DATA 


Here is the information which has been collected for 10 welders: 


COOPER 308 83 0 0 oO 75 81 0 0 0 
FLANAGAN 312 313 512 833 0 80 79 82 81 o0 
JONES 409 641 642 o o 80 80 78 0 OO 
JOYCE 312 642 685 0 0 7 79 81 0 o 
LEEVES 685 831 409 312 833 92 76 79 79 81 
LITTLEJOHN 308 409 0 0 o 72 8 0 0 0 
MATTHEWS 409 512 642 685 o 82 81 78 81 o0 
NEVILLE 312 500 641 685 409 78 82 78 81 81 
ROY 512 0 0 0 o a o 0 o o 
TIPLER 500 833 0 o 0 92 81 0 0 o0 


i.e, from left to right: 


- WELDERS z matrix of the welders' names (10 lines, 10 columns) 
7 WELQUAL : matrix of the qualifications obtained 
~ WELDATE : matrix of the dates, It indicates in which year 


each skill was practiced for the last time. 
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As all the welders have not obtained the same number of qualifications, 
the lines of the matrices WELQUAL and WELDATE are completed with zeros. 


We also have the two following vectors: 


QUALIF PER 


308 
312 
313 
409 
500 
510 
512 
641 
642 
675 
681 
685 
831 
833 


HUNBWOUKRENHUO 


QUALIF is the vector of all the qualifications possible, whereas PER 
indicates, for each qualification, its validity period, in years, The 
zeros indicate the qualifications which are acquired permanently. 


Comparison of all this information enables certain facts to be established. 
We will study the case of the welder FLANAGAN for example. 


He acquired (or renewed) qualifications 312 313 512 and 833 in 1980 1979 
1982 1981 respectively. 

Qualification 312 being valid for 5 years, he will have to renew it in 1985 
at latest. Qualification 313 is valid for only one year, he should have 
xenewed it, and it is therefore lost, etc ... 


THREE IMPORTANT QUESTIONS 


You are asked to write three different functions, each of which must 
answer a different requirement of the company chief. 


FIRST QUESTIO! 


For a particular worksite we are looking for welders possessing a 
given qualification. We require a list of all the welders possessing 
this qualification. We can generalise in the case where we require 
welders possessing one or other of the qualifications featuring in a 
given list. 
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For example, we will look for welders who have either qualification 308, 
or qualification 312: 


LEEVES 
LITTLEJOHN 
NEVILLE 


SECOND QUESTION: 


The controls imposed on certain qualifications have been modified on a 
given date. We are looking for welders who have renewed this qualification 
after this date. 


For example, the ruling relating to qualification 409 was modified in 1980, 
We will obtain the welders who have renewed this qualification 
since this date as follows: 


409 WELZ Su 
LITTLEJOHN 81 TOUT € 
MATTHEWS 82 5 fonction prints the name and date 
NEVILLE 81 OE renewal. 


On the other hand, the welders JONES and LEEVES do not appear in this 
list, because they renewed their qualification 409 in 1980 and 1979 
respectively. 


THIRD QUESTIO! 


Assume we are in 1982. We are looking for welders for whom one or more 
qualifications will expire this year, or who have already lost one or 
other qualification, through not renewing it in time. 


For each welder in this situation, the program will print the qualification 
or qualifications to be renewed, Those which must normally be renewed this 
year are printed normally. Those whose renewal date has passed are lightly 
underlined. 


An example of this is given on the following page. The year is given as 
operand, so as to enable estimation studies to be undertaken, which the 
use of UTS would not provide. 
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WELD3 82 

COOPER 833 

FLANAGAN 313 833 

JONES 409 

JOYCE 312 

LEEVES 832 409 833 
MATTHEWS 512 

ROY 512 

TIPLER 833 


Taking the case of the welder FLANAGAN, he will have to renew his qualifica- 
tions 312 and 512 in 1982 and 1983 respectively. On the other hand, it 
appears from the above that he will have to renew his qualification 833 

in 82, and that he has already lost his qualification 313. 


THE PLOT THICKENS 


Obtaining certain qualifications automatically confers qualifications 
of a lower order on their ladder. The matrix EQUIV gives the list of 


these equivalences: 


QUALIP EQUIV 
308 o o o 
312 o o o 
313 308 o o 
409 i 0 o 
500 308 0 o 
510 308 312 o 
512 308 409 313 
641 ij 0 o 
642 o o 0 
675 o o 9 
681 641 642 0 
685 o o 0 
831 o o o 
833 831 o o 
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Due to these equivalences, the welder ROY, who has qualifications 512, 
also has qualifications 308, 409 and 313. 


You are required to adapt the functions WELD1 and WELD2 to take this 
new information into account. We will not attempt to modify function 
WELD3. 


For example: 


WELDiB 308 
COOPER 
FLANAGAN equivalence 512 + 308 
LITTLEJOHN 
MATTHEWS equivalence 512 + 308 
NEVILLE equivalence 500 + 308 
ROY equivalence 512 + 308 
TIPLER equivalence 500 + 308 


FOR AESTHETICS ONLY 


The function WELD1 displayed only the name of welders who have a given 
qualification, It would be eloquent to display the list of his qualifica- 
tions and their renewal dates for each, 


WELDIC 409 
JONES 409 80 641 80 642 78 
LEEVES 685 82 831 79 409 79 312 79 833 81 
LITTLEJOHN 308 72 409 81 
MATTHEWS 409 82 512 81 642 78 685 81 
NEVILLE 312 78 500 82 641 78 685 81 409 81 


In this presentation, we have not taken equivalences into account. Each 
qualification is immediately followed by its renewal date and the zeros 
have disappeared. 


Imbrication of the columns of two arrays has already been the subject 
of the topic "Hope" and "Truth". Cancelling of the zeros is easy to achieve 
if we print the lines one by one by means of a loop. It is more advantageous 
however, to find a solution without a loop, which will be useful in many 
other causes. 


This is slightly more complicated, but much more exciting! 


WILL IT BE FINE TOMORROW? 


SALES is an array in which we have recorded the sales of articles in a 
shop during the last six months, The matrix OBJECTS contains the names 
of the articles in the catalogue: 


OBJECTS SALES 
SUNTAN LOTION 3 12 65 262 581 488 
BATHING MAT 0 1 Q 5 60 32 
RUBBER RING 1 2 2 1 5 9 
SUNSHADE 7 2 0 9 18 24 
UMBRELLA 127 133 60 1 3 3 
RAINCOAT 52 36 32 41 27 30 
SNOW-BOOTS 2 6 8 ? 4 2 


Based on SALES, we wish to establish a starting point for estimates 
for the next six months. These estimates will be improved later, and 
we will merely place the next six months in relation to the values for 
the past six months. 


A function will display the articles one after the other and the department 
head will indicate the total sales which he forcasts for the coning six 
months. 


The function will have to be written in such a way that he can answer in 
one of the following five ways, for each product: 
- he types 6 different values for each month, 


- he can type a single value; the computer will have to repeat 
it for the coming six months, 


- if he types I, the values for the last six months will be 
replayed Identically, 


~ if he types L, the Last value known will be repeated 6 times, 


- if he types A, the Average of the last six months will be 
repeated. 


Since the aim is not to perform a very delicate operation, we will assume 
that the user does not commit any handling error, and follows this method 
of working without error. 


You are offered two solutions for solving this project. 


FIRST SOLUTION 


We introduce the values by means of a simple QUAD (0). 
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The introduction 


of numeric values therefore poses no problem, but the use of the letters 
I, L and A assumes that we have defined the variables or functions called 


I, L and A. 


For example, here is how the use of such a program would be presented. 
The result is placed in the variable FUTURE, for eventual use: 


FUTURE « OBJECT EXTRAPOLATE SALES 


SUNTAN LOTION 
B: 


1,300 100 20 20 10d 


BATHIN 
D: 
4 
RUBBER RING 
n: 
s 
SUNSHADE 
a: 
f 
UMBRELLA 
0: 
335 Yo 20 30 
RAINCOAT 
D 
L 
SWOW-BOOTS 
A 
The results obtained would be 
FUTURE 
500 200 100 
16 16 16 
5 5 5 
7 2 0 
3 3 5 
30 30 30 
4 4 4 


as 


4 


we introduce 6 different values 


we are going to use the average of 


the last six months 


5 per month for 6 months 


Same value as the last six months 


6 times the last sale 


follows: 


18 
20 


30 
4 


4 


The averages have been rounded off to the nearest lower whole number, 
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SECOND SOLUTION 


We introduce the values by means of a QUOTE-QUAD ([]). We must therefore 
detect the presence of the letters I, L or A in the typed text, and perform 


the corresponding work. 
On the other hand, to accept the introduction of numeric values, we must 


know the EXECUTE function (4). 


Here is how we would perform the same work as beforehand with a function 
written in this way. 


PUTURE + OBJECTS EXTRAPOLATE SALES 


SUNTAN LOTION 500.200 100 20 20 100 
BATHING MAT É- 

RUBBER RING e. 

SUNSHADE u y 
UMBRELLA 4.3 5 10.20 30 
RAINCOAT A 

SNOW-BOOTS R: 


The results would be identical. 


Here we have used what is called the "bare-output" technique, which 
enables the computer to display a text, and to await the answer on the 
same line (see course book, page 107). 

Presentation is distinctly more agreeable than the preceding example, if 
there is ever an error in entering the data. 


If your knowledge is sufficient, write both solutions (O and []) and 
compare them, This is particularly instructive. 


CROSSED NUMBERING 


In order to follow the results of a commercial group, we have constituted 
three vectors of the same length, having one element per signed contract: 


1 - The vector AMOUNTS contains the amounts of all the contracts 
signed. 


2 - For each contract we find the registration number of the 
commercial engineer who undertook the business in the vector 
COMM. 


3 - A binary vector, ONEW, specifies for each contract if it was 
concluded with an old client (0), or with a new client (1). 


For example: 


AMOUNTS : 7700 12350 6300 7620 9700 33200 9100 5120 ...... . 
COMM : 420 420 471 452 420 519 420 953 ....... 
ONEW : i 1 1 o o 1 o [men 


FIRST STEP 


We wish to draw up an array giving the number of old or new clients 
who have signed a contract with each commercial engineer, according to 


the model below. 
The array is bordered to the right and below by the totals of the lines 
and columns, 


CROSS ONEW WITH COMM 


old 23 11 2 13 8 6 63 The references have been 
new 10 3 3 8 7 3 34 typed a posteriori in 
totals 33 l4 5 21 15 9 97 italics to facilitate 
interpretation of the 
8 89 po? 8 Pr 
$$ Va $ 3 3 e resit. 
S 
LJ 
NOTES 


1 - The function WITH serves only to incorporate the two operands 
(ONEW and COMM) into one matrix, in such a way that CROSS receives 
à single operand, The form of the phrase thus constituted conforms 
move to normal usage. 


2 - In this case, we know in advance the different values which the 
operands can take: 0 and 1 for ONEW, a list of known registration 
numbers for COMM, 


-42- 


However the solution adopted must be more general, so as to accept any 
operands where possible values are not necessarily indexed in advance. 
Such generalisation is useful if ONEW can take, for example, 4 different 
values instead of 2: 

0 = old clients, 

1 = new clients, 

2 - administrations and public services, 


3 - internal lending between subsidiaries of the same individual 
group. 


SECOND STEP 


We wish to improve presentation by automatically adding the necessary 
references, which had been typed a posteriori in the first step. 


The width of the columns of numbers (format) will be defined and 
controlled by the variable FOR, global to the workspace. In the example 
below, FOR equals 8. 


CROSS Oz WITH COMM 
420 452 471 519 833 953 TOTALS 


o 23 1i 2 13 8 6 63 
1 10 3 3 8 7 3 34 
TOTALS 33 14 5 21 15 9 97 


THIRD STEP 


We wish now to balance these results by the amount of the contracts, so 

as to find turn-over achieved by each commercial engineer for each category 
of clients. 

As in the first step, we will make do with rather crude presentation, 
without headings: 


AMOUNTS BALANCE ONEM WITH COMM 
399450 254550 46300 254750 105750 146700 1207500 
125400 27700 58650 213650 105950 51400 582750 
524850 282250 104950 468400 211700 198100 1790250 


Here again the results array is bordered by its totals. 


LAST STEP 


By combining the information calculated in the preceding steps, it is 
possible to make the following appear, for each case indexed: 


- turn-over achieved, 
7 number of clients, 
~ average turn-over per client. 


And to our satisfaction, we will create a fine array, with headings, as 
follows: 


SONETS WLANs ANS i 
420 452 471 519 833 953 TOTALS 
O 399450 254550 46300 254750 105750 146700 1207500 


23 1l 2 13 8 6 63 
17367 23141 23150 19596 13219 24450 19167 


1 125400 27700 58650 213650 105950 51400 582750 
10 3 3 8 7 3 34 
12540 9233 19550 26706 15136 17133 17140 


TOTALS 524850 282250 104950 468400 211700 198100 1790250 
33 14 5 21 15 9 97 
15905 20161 20990 22305 14113 22011 18456 


In the above restitution, FOR had been fixed at 9. 


Carefully keep the functions written for this subject. They are very 
general, and can be of assistance in many everyday situations 


If aestheticsare an important factor to you in the pursuance of data 
processing with terminals users, it is always possible for you to 
include, in the function BALANCE the function PRINT, written in the topic 
“Everything ia in the presentation". 

The result is certainly worthwhile. 


A DIFFICULT CHOICE 


Some manufactured products, numbering about 500, are referenced by a 
product code comprising a letter followed by three figures: 


A529 
P402 
P747 etc ... 


The letter represents the range, whereas the numeric part represents 
the article number in the range. Consequently, two products can have 
the same numeric part and belong to different ranges, for example: E410 
and Y410. 


There are Several ways of representing the list of these codes. According 
to the representation adopted, seeking a code will be more or less 
complicated, longer or shorter. 


We will later suggest several representations. For each of these 
structures it will be up to you to write a function for searching a given 
code in the list of all the codes. 


If the product exists, the function must repeat its index on the list: 


FIND 'B410' 
127 


If it does not exist, the function must give the result zero: 


PIND 'U239' 
o 


It is especially advisable to test seeking codes which have the same 
numeric part but which belong to different ranges. 


FIRST STRUCTURE 


A vector called PKÜRAN will contain the representative letter of the range 
of 500 products. A second vector called PRONUM will contain the numeric 
part of the codes in numeric form. 


This structure is probably rather complex to manage, but it is useful 
if we wish to make selections on the range code. 
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SECOND STRUCTURE 


We form a matrix of characters containing one code per line by means of 
the following transformation: 


PROMAT + PRORAN, 3 O VERT PRONUM 
Looking for a code thus amounts to looking for a character string in a 


matrix of characters. This is much easier. 


THIRD STRUCTURE 


We combine the letter and the numbers into a single numeric value by 
means of decoding, as we would for alphabetical classification (see 

course hook, page 174) 

Since the codes are composed of the 26 letters and 10 numbers, decoding 
must be carried out in base 36 (or in a higher base, for example, base 100). 


ALPHANUM + 10123456 789ABCDEFGH IJ KEMNOPQRSTUVWKYZ" 
PROVEC + 36 1 ALPHANUM | © PROMAT 


Each line of PROMAT gives rise to a number.  PROVEC is thus a numeric 
vector of 500 values. 


The user himself will continue to designate products in the same way: 
FIND 'K745* 
Subjecting the code sought to the same transformation, leads to seeking 


a numeric value in a numeric vector. 


FOURTH STRUCTURE 


With the preceding structure, setting up and seeking exrors are complicated 
by the fact that there is no connection between the external form of a 
code (E403) and its representation in PROVEC (hore 706360). 


A much simpler alternative consists of keeping the numoric part unchanged 
and replacing the letter by its position in the normal alphabet: 


E403 becomes 5403 
2106 becomes 26106 
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Here again the external form of the codes remains unchanged for the user 


FIFTH STEP 


We can intuitively estimate which presentation allows the quickest 
searching, but it is interesting to compare such intuition with the 
precise measured results. 


For this purpose write a function which calculates the computing time 
required for execution of an expression N subsequent times. This 
calculation will be achieved by the difference between [lAIi2] before 
and after execution. 


Example: 
CALTIME 10 
EXPRESSION: FINDY 'E562' 
TIME = 530 


EXPRESSION: FIND2 ‘E562" 
TIME = 436 


EXPRESSION: etc... 


The function's argument indicates how many times each expression must 
be executed, so as to limit measurement errors. 


Then the function asks the user to introduce the expressions. We 
called the functions corresponding to the structures 1,2, etc..., FINDl, 
FIND2 etc... 


The function CALTIME thus executes the expressions introduced, and 


indicates the computing time used. Of course, the times indicated above 
are highly unrealistic. We will leave you to undertake your own tests. 


LAST SUGGESTION 


Instead of representing the range by a letter, we could use entirely 
numeric product codes, as with PROVEC. For curiosity, calculate the 
time gained which would result from the user using such codes: 


FIND6 12702 (numeric argument) 


THE CARROT AND THE STICK 


A numeric array of L lines and C columns represents C successive values 
of L bits of information. 


For example, the array PROCAR is a 3x4 matrix which represents, for 4 
consecutive years, the carrot production of three countries. 


—€— 
15 18 11 9 


1l 14 8 14 
7 9 14 12 


We wish to compare these values by representing them by sticks of different 
"colours", in accordance with the model below. Instead of colours, we 
have used the following graphic symbols: 


AN for the first country 
oono for the second country 
‘REE for the third country 


18 | AAA 

1| AWAY 

16 | AAA 

15- WA AAA 

14] AAA M Manaooo. Xoeleiek 000000 
137. WA \\\\cencac Akk 200000 
12]. WWW NWWonnooo. donee nona tener 
11] — WWconoon NWWoneono AAA denies DOODIA Ak 
101. \\\eec003 NE NNNM Aon 
9 H \\\\oo0s00, ANV apokee YQ a N\A NOOO ee ee see 
8 |  \\\\o0cona AAA gago  NNNNapooienieees NN NNannmmeeiere 
7. |. AAWO AAA ekt — NNNNOODDIeeeeer NANNBaan eee 
6 |. poneo Aoao ANN NGanDeeeeee NN Nang 
5 7. AA iOO re AANO — NN NODDDAGeeees ANADO ee 
4 |. \\\\G00G nese AOOO AVO \\\ ag aR tei 
3 |. AN gooien NNNNOGED oec NNNNGpOOeeeoee — NNNNIUDOHGeeerr 
2 ! AA DUDESeneeekk AAV NaDpp #888 ANANDODDaeeeeer — NNNNODOUM Geek 
1 | WWeoooeeeee NND ANODD WA IID Re 

1 
n 
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In order to maintain clear legibility of the diagram, we will observe 
the following presentation: 


the vertical scale is equal to 1, 


- each stick is 6 characters wide, 


a stick encroaches on the preceding stick by 2 characters, 


- each group of sticks is separated from the preceding one by 
3 spaces. 


Of course, the matrix used as an argument must be able to be any dimensions. 


In this exercise, sticks representing the same column of the matrix are 
arranged side by side so as to form a group of sticks. They could also 

be placed one above the other, in such a way that the total height 
represents the total carrot production in three countries. This arangement 
is more complicated to obtain; it will be subject of another exercise 
entitled "Spokes in the wheels". 


IN THE TIME OF THE PYRAMIDS 


All companies must keep a register of the starting and leaving dates of 
its employees. We have extracted a numeric matrix ES from this which 
has as many lines as employees indexed, and 4 columns representing 
respectively: 


- the month and year recruted 


- the month and year of leaving. For people still present in the 
company. these last two values are zero. 


For example: 3 70 8 71 
3 700 0 
471571 
10 71 9 81 
bse etC ses 


The first person, recruited in March 1970, left in August 1971, whereas 
the second. recruiteđ in the same month is still present in the company, 


FIRST_STEP 


We want to establish, at a given date (month, year), the distribution of 
personnel present by years of service (on a scale from 0 to 20). 
For example, in March 1976 the personnel were distributed thus: 


CUT 3 76 
115402112001110000000029 
In other words on this date 11 people had less than one year's service, 


5 had one year, 4 had two years, etc ... 
In total, 29 people were present on this date. 


As the dates are not specified by the day, it will be advisable, for a 
given month: 
- to count as present people recruited during this month, 


- not to count people who left this month, 


- to count one year of service for these people recruited the same 
month of the previous year, etc . 


Now write this function. 
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SECOND STEP 


We wish to know the pattern of this length of service pyramid in the course 
of time, by applying "cuts" in the Decembers of several successive years, 
whose list will be given as an argument. 


In the function below, we have given as left-hand argument the length of 
service scale on which we wanted to work, and as right-hand argument 

the years on which the study took place. In both cases, we have used the 
service function TO. 


(1 TO 12) PYRAMIDS 74 TO 79 


l a x 4 5 6 7 9 10 ll 12 
74 9 2 2 2 0 2 0 0 2 1 0 0 20 
7 5 4 1 2 10. 02 00 2 1 0 18 
76 9 4 2 0 2 10 2 0 060 2 1 23 
7 6€ 6 2002 102002 2 
78 9 4 2 2 0 0 2 1.02 0 0 22 
7) 9 5 2 0 2 0 02 1.0 2 0 23 


FLASH 


We wish to present the results of the various subsidiaries of a large 
industrial group and calculate certain totals and percentages. 


We assume that the information is already collected and the calculations 
made. Hence we have three data: 


7 the vector CODES which contains the codes enabling the lines of 
results to be designated, 


7 the array POSTS which contains the name associated with each post, 
of a maximum of 30 characters, 


- the array RESULTS which contains the numeric information relating 
to the last three months. 


CODES POSTS RESULTS 

10 FRANCE 965 214 280 
12 ITALY 388 666 214 
15 GERMANY 686 659 822 
16 ENGLAND 323 529 aso 
50 E.E.C. 2362 2068 1766 
18 U.S.S.R. 484 228 952 
51 EUROPE TOTAL 2846 2296 2718 
u ALGERIA 183 246 164 
13 TUNISIA 429 328 222 
19 MOROCCO 805 510 415 
20 IVORY COAST 507 828 938 
52 AFRICA TOTAL 1924 1912 1739 
60 EUROPE MANAGEMENT 5397 4583 4760 
14 CANADA 524 555 640 
17 UNITED STATES 835 780 516 
23 MEXICO 956 669 495 
61 AMERICA MANAGEMENT 1688 1629 1348 
21 EUROPE-AMERICA SALES 988 959 866 
22 AMERICA-EUROPE SALES 361 584 563 
70 OVERALL TOTAL ------—> 7085 6212 6108 
80 E.E.C, PERCENTAGE 33 33 29 
81 EUROPE PERCENTAGE 76 7A 78 
82 AMERICA PERCENTAGE 24 26 22 


From this data we wish to print flashes of partial information, 
destined for various authorities in the company. 
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PRINCIPLE 
These partial arrays will be printed by means of a process in two steps. 


- 1 - First phase 


Each restitution is defined in advance by means of the function 
DEPREST, by the two following pieces of information: 


- its header (30 characters maximun) 


- the list of numbers of lines involved in this restitution. 
The intentionally placed zeros in this list indicate the 
places where blank lines will have to be included when 
printing. 


Hence we can define numerous different restitutions in advance. 
The headers constitute the matrix HEDREST (» lines and 30 columns), 
whereas the codes of the lines to be printed are contained in the 
numeric matrix CODREST (same dimensions}. 


For example: 


DEFREST 
ARRAY HEADER....AFRICA ZONE RESULTS 
LINES TO BE PRINTED 
D: 


50 0 11 13 19 20 0' 82'60 
THIS ARRAY WILL BEAR THE NUMBER 4 


- 2 - Second phase 


A second function PRIREST, serves to print an array already defined, 
designated by its order number in the list of restitutions. 


An auxiliary function, ARRAYS, gives the numbered list of predefined 
restitutions. 


An example is given on the following page. 


It remains only for you to write the functions DEFREST, PRIREST and ARRAYS 
in accordance with these directions ..... a real pleasure! 


SPECIMEN USE 
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We have seen on the previous page, how to define a new restitution. 
Imagine that we have defined 4 restitutions in this way, the intermediary 
arrays taking the following values 


HEDREST 
EUROPE RESULTS 


OVERALL SYNTHESIS OF THE GROUP 


AMERICA RESULTS 
AFRICA ZONE RESULTS 

CODREST 
10 12 15 16 0 50 O 18 
51 52 21 22 O0 60 0 O0 
14 17 23 0 22 21 0 61 
50 0 11 13 19 20 0 52 


o 51 
61 22 
0 82 
60 0 


80 81 0 
o 70 0 
0 00 
o 00 


0 0 
80 81 
0 0 
0 0 


0000 
82 0 0 0 
0000 
0000 


bee ERO Seas 


We can therefore print one of these arrays, for example the second 


as follo 


OVERALL SYNTHESIS OF THE GROUP 


Sl 
52 
21 
22 


60 
61 
22 
21 
70 
80 


81 
82 


WS: 


PRIREST À 


EUROPE TOTAL 
AFRICA TOTAL 
EUROPE«AMERICA SALES 
AMERICA+EUROPE SALES 


EUROPE MANAGEMENT 
AMERICA MANAGEMENT 
AMERICA«EUROPE SALES 
EUROPE+AMERICA SALES 
OVERALL TOTAL  ------ 
E.E.C. PERCENTAGE 


EUROPE PERCENTAGE 
AMERICA PERCENTAGE 


2846 2296 
1924 1912 
988 959 
361 564 
5397 4583 
1688 1629 
361 584 
988 959 
7085 6212 
33 33 
76 74 
24 26 


1982 


2718 
1739 
866 
563 


4760 
1348 
563 
866 
6108 
29 


78 
22 


The lines have indeed been printed in the order indicated by CODREST(2;1, 


passing one blank line at each zero encountered, 


by HEDREST[2:], supplemented by the date. 


The array is headed 


WEEK-END SAILING AT BRIGHTON 


A company committee organises group outings which it partially finances. 
The rest is financed by voluntary donations from the participants. 

This donation can be raised, especially for employees who bring their 
family, and it can be divided into several instalments. 

We will assume that the donations are identical for all those participating 
in the outing, whether they are employees, spouses, or members of their 
family. 


We wish to equip ourselves with a tool for following financing of these 


outings. Various functions will have to perform the processings 
described hereafter. 


INFORMATION INPUT 


ORGANISING AN OUTING 
When an outing is planned, we enter the following data into the computer: 


- description of the outing (30 characters maximum) 
- total individual donations. 


Moreover, the computer automatically attributes a number to this outing, 
so that it is easy to designate it in other programs. 


We call: 


- OUTNAMES the matrix of outings descriptions, 
- OUTPRICES the vector of participation prices, 
- OUTCODES the vector of numbers attributed to the outings. 


Seay 


Example: 


PLAN. 
OUTING DESCRIPTION? 
‘CHEDDAR GORGE ~ 2 DAYS 
INDIVIDUAL DONATION? 
n: 


600 
--- THIS OUTING WILL BEAR CODE 8 


INPUT OF REGISTRATIONS 


Registrations are entered as far as possible outing by outing in the 
following way: 


- outing code number. The computer displays the description 
in full, as a check. 
- Employee's registration number, 


- number of places reserved. From this information, the computer 
displays the amount due from the employee, 


- amount of initial instalment. 
Then we pass to the next employee, for the same outing. 
This assumes that we have two data relating to the personnel: 


- PERNAMES matrix of the employee's names (12 columns) 
- PERREGS vector of the employee's registration. 


FURTHER INSTALMENTS 


When an employee deposits a further instalment, the computer asks for 
his registration and the outing number. This information enables it 
to display the total instalments already paid and the amount still 
owing. 


Examples of both these processings are given on the following page. 
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REGISTRATIONS 
OUTING CODE 
n: 


5 
ONE WEEK IN MOROCCO 
REGISTRATION, NUMBER OF PARTICIPANTS 
0: 


122.2 
DONATION: 2400 
FIRST INSTALMENT 
n: 


800 
REGISTRATION, NUMBER OF PARTICIPANTS 
0: 


4031 
DONATION: 1200 
FIST INSTALMENT 


1200 


REGISTRATION, NUMBER OF PARTICIPANTS 
a: 


END 
OUTING CODE 


8 
CHEDDAR GORGE - 2 DAYS 
REGISTRATION, NUMBER OF PARTICIPANTS 
n: 


580 4 
DONATION: 2400 
FIST INSTALMENT 


Start of program 


We introduce the outing code and 
the computer displays its name. 


The computer displays the sum due 
in terms of the number of part- 
icipants. 


Partial instalment 


We pass on to the next person, 
still for the same outing. 


We have finished for this 
outing, and we proceed to the 
next. 


If we had finished we would 
type END as outing code. 


D: 
i000 
etc... see. 
INSTALMENT Further instalments input 
BEGISTRATION, OUTING Program 
D. 
122 5 This information must be 


ALREADY PAID: 800, STILL OWING: 1600 
INSTALMENT 
a: 
1000 
etc.... 


checked. 
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RESTITUTIONS 


An initial program enables the state of the planned outings to be determined. 
We print for each one: 


the outing code and the complete description, 
- the amount of the individual donation, 
- the number of participants, 


- the budget which this represents (i.e. the product of the two 
preceding numbers), 


- the total amount of the payment already collected for this trip. 


TRIPS 
CODE OUTING PRICE PART BUDGET RECEIVED 
5 ONE WEEK IN MOROCCO 1200 15 18000 18000 
6 SOUTH COAST, DEVON 750 8 6000 5500 
7 WEEK-END SAILING AT BRIGHTON 500 i2 6000 2300 
8 CHEDDAR GORGE - 2 DAYS 600 43 25800 9600 


A second program displays the outings requested by each employee, showing 
the following information: 


- employee's registration number and name, 


- codes of outings requested with, for each one: 


- number of people participating, 
- corresponding total amount, 

- total amount already paid, 

- amount still owing. 


STATE 

REG NO. NAME OUT PART TOTAL RECEIVED OWING 
115 MORAN 6 2 1500 1000 500 
8 1 600 600 o 

122 TIPLER 7 3 1500 1500 o 
8 3 1800 500 1300 

6 1 750 750 o 

241 BOYLE 6 1 750 200 550 
245 EASEMAN 7 2 1000 500 500 
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Finally, for each outing, we require a list of the participants. In 
order to save space, we will write 3 names per line, as follows. 


PARTICIPANTS 
SOUTH COAST, DEVON MORAN 2 BOYLE 1 TIPLER 1 
JOYCE 3 MATTHEWS 2 
WEEK-END SAILING AT BRIGHTON TIPLER 3 EASEMAN 2 
CHEDDAR GORGE - 2 DAYS MORAN. i TIPLER 3 FORD H 
GILLAM 2 BICKERSTETHA GOODEVE 2 
COOMBER 3 


Only outings for which there are participants appear here. For each 
outing, we find the list of participants associated with the number of 
people participating in each one. 


CONCLUSION OF AN OUTING 


When an outing is over, a function enables it to be erased from the list 

of planned outings. However, this function checks that all the participants 
have settled their donations. If this is not the case, it will not erase 
it. 


For example: 


ERASEOUT 
WHICH OUTING? 


6 
UNSETTLED DONATIONS 
The function refuses to erase. 


ERASEOUT 
WHICH OUTING? 
n: 


5 
IT'S DONE This time it is erased. 


CAN YOU UPDATE? 


The personnel of a company are divided into 6 hierarchial categories. 
We check the state of this on the first of January of two consecutive 
years, and we note: 


- in REG NOl and CAT1 the registrations and categories of all the 
employees present on the first check, 


- in REG N02 and CAT2 the same information for the employees 
present on the second check. Here we find nearly all the 
employees who featured in REG NOl, plus some new ones. 

These pieces of information are therefore not of the same length, and 
moreover, they are not classed in the same order. 


FIRST STEP 


It is required to calculate the personnel updating matrix: 


NEW CATEGORY 


4 


4 DEPARTURES 


ENGAGEMENTS 7 


OLD CATEGORY 


We read from this matrix that there have been 16 engagements in category 
1, 18 in category 2, 11 in category 3, etc.... 


We can also see that among the people who were in category 1, 66 are still 
there, 17 have been promoted to category 2, 8 to category 3, two lucky 
ones have been promoted to category 4 and 3 have left the company. 
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ARRAY OF MANFOWER TRANSFERS 


From this information it is possible to establish transfers of personnel 
from one category to another. 
For each category we wish to show: 
- the initial manpower at the first check 
- detail of entries: 
- by promotion from a lower category, 
- by direct engagement. 
- the total entries (total of the two preceding lines), 
- detail of departure: 
- by promotion to a higer category, 
- by finally leaving the company. 
- the total departures (total of the two preceding lines), 


- the final manpower, at the second check. 


A simple function links both steps: 
TRANSFERS 
UPDATING MATRIX 


16 18 1l 7 3 4.9 
66 17 8 2 o 0 3 
0 73 27 6 5 0 7 
0 O0 49 24 5 4 9 
0 0 0 4 14 8 3 
0.00 02 ll 2 
0 00 0 052 4 
» A column on the right 
ARRAY OF MANPOWER TRANSFERS contains the totals 
CATEGORY a 2 3 4 5 6 
INITIAL MANPOWER 96 118 91 71 40 56 472 
PROMOTIONS 0 17 35 32 24 23 13 
ENGAGEMENTS 16 18 11 a 3 8 63 
TOTAL ENTRIES 16 35 46 39 27 31 194 
PROMOTIONS 2r 38 35.722. 211^ 0 313b 
DEPARTURES 3 7 9 3 2 4 28 
TOTAL OUTGOING 30 45 42 25 13 4 159 
FINAL MANPOWER 82 108 95 85 54 83 507 


Could you write the function TRANSFERS? 


SPECIAL PRINTING 


Information concerning a group of " people is represented by various 
variables: 


- NAME is the matrix of the n names (lines, 9 columns), 
- AGE is the numeric vector of the n ages, 

- SEX is a vector of characters, representing sex, 

- DEPT is the numeric vector giving the company department 


of these n people, 


- MARSTA is the vector which represents the marital status of 
the people by one of the following characters, 
S, M, Dor V, 


- REG is a numeric vector containing the registration no. 
the people, 


The position of the information relating to the same individual is the 
same in all the variables. 

We have done this in such a way that all the variable names have a maxi- 
mum of six characters. 


We wish to be able to print all or part of this information, for all or 
some of the people, by a process in three steps. 


- 1 - We define a character which the print-out must elucidate by indicating 
the names of the variables to be visualized, in the order in which we 
want to see them appear. Some may appear several times as in the 
following example. 


CHARACTER 
DATA TO BE PRINTED ..... REG No. NAME AGE SEX MARSTA REG No. 


IT'S DONE 


Of course, the function GHARACTER must check that the names of the 
variables requested are correct, 


- 2 - A print-out of the information is required concerning various people 
designated by their index in the variables. 
For example, in order to print the information concerning the 3rd, 
llth, 2nd, and 27th persons, we will write: 


262- 


T 
H ] Box 

i i M o en 

H 285 H HURTUBISE H 48 l M ' S H 285 

1949  1HUREL 134 | N | M | 949 

{712 1 MIALON | 28 | E 1 E ! 712 


- 3 - We will be able thus to think about printing lists of people selected 
by certain criteria, eventually classifying them according to certain 


other criteria, as shown in the course book, pages 361 to 363. 


For example: PRINT PEOPLE (AGE»32) AND (DEP-75) 
Or: PRINT (PEOPLE SEX = 'P') ACCORDING TO AGE 
ADVICE 


We will use two matrices TAFOR and TAHED to contain the printing formats 
of the various variables and the headers which must feature above each 
column of the first array respectively. Both these matrices will be 
contributed manually. 


The first function, CHARACTER, will elaborate two global variables which 
will be used by PRINT-OUT: 


- ZONES ^ : List of the numbers of the variables to be edited, 
- HEADER : Title of the restitution which we want to obtain. 
In the case of the example above, 


- ZONES would equal: 6 1 2 3 5 6 
- HEADER would be the array: 


Torn 
[REG No.! NAME {AGE |SEX |M.S.} REG No. 
i Lan bed 

H i 


THE CLIENT 


To provide comercial follow up and invoicing, a company has to be able to 
organise, for each of its clients: 


~ a client code, of four figures maximum 
- a delivery address, of 4 lines of 30 characters, 


- an invoicing address, of the same dimensions. 
This information presents certain features: 


- In most cases, the invoicing address is identical to the 
delivery adáress. 


- Some clients have formed buying groups. This means that one 
Of them centralizes all the invoices concerning a number of 
members. Each of these members has therefore a different 
delivery address, but shows the address of their buying group 
as invoicing address. 


DATA STRUCTURE 


We could store two addresses for each client. The result of this would be 
a slight waste of space, since both these addresses would be identical 
most of the time. Moreover, when a buying group changed address, all its 
members' invoicing addresses would have to be changed. 

We have chosen another approach which you should use. 


this data structure is presented not because it is the best, but because 
tt Leads you to discover methods of organising data which are particularly 
useful in APL. 


Moreover, we have attributed great importance to computing time savings 
and to reliability of the system in case of an incident. 


The diagram on the following page shows the organisation adopted. 


- 1 - All the data is over-dimensioned, so as to contain present clients, 
and to allow recording of further clients in the near future. 
For the reasons for this choice, which appear paradoxical in APL, 
consult the answers, You will discover that this technique offers 
excellent reliability and it is much more economical than would 
appear. 
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DATA STRUCTURE 


b 
D 


GROUPS CLICO BIUCLI ADDRESSES INVAD 
1 
- 2 
3 
4 
4 
> 21 
7 
8 


ur 


PES 
"o9 


ub 
DL (S 


Dv GEI 


D 
pr 


ms 


pity 


You will notice that client 162 has left; there is a zero in BINCLI. The 
parts on a grey background represent addresses which have been entered. 

The numbers printed in ADDRESSES servo only to indicate the lines, so as to 
facilitate reading of the diagram. 
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- 2 - A vector, BINCLI, will indicate the places occupied by 1's, and 
the places still unoccupied or left vacant by the departure of a 
client by O's, 

The new clients will be inserted in the first place found vacant. 
As a result they will be arranged in any order. 


- 3 - The vector CLICO contains the clients' codes, not arranged in 
order, and zeros in the part which is still unoccupied. 


- 4 - A single matrix, ADDRESSES, will contain all the addresses, at 
the rate of one address per line. The 4 lines of 30 characters 
of each address will thus be placed end to end, so as to be stored 
in a single line of 120 charecters. 


The entire upper part of the matrix will be reserved for delivery 
addresses, each delivery address being positioned opposite the 
client to which it refers. 

The lower part of the matrix contains the invoicing addresses which 
differ from the delivery address. Hence there is no longer any 
Correspondence between the client's index and the index of his 
invoicing address. 


- 5 - The vector INVAD, of the same length as CLICO, contains for each 
client the index of the place where his invoicing address is located. 


For example: 


Clients 140, 142, 156 and 153 are situated in positions 1, 2, 3 and 
4 respectively. Their delivery addresses are thus situated in 
lines 1 2 3 4 of ADDRESSES. In INVAD we can read that their 
invoicing addresses are also in 1 2 3 4. 

For these clients, their two addresses are identical. 


Client 106 is in the 6th position and so is his delivery address. 
On the other hand, it can be seen in INVAD that his invoicing 
address is the 21st. Hence it is different. 


Finally we can see that clients 167 and 170 have the seventh 
invoicing address: they are two members of buying group 161. 


- 6 - The binary vector GROUPS indicates by 1's the clients which are 
head offices of buying groups. This is so for clients 140 and 
161. 
The members of these goups will be referenced by another means. 


It should be noted that BINCLI has as many elements as ADDRESSES has lines. 
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EXAMPLE OF NEW CLIENTS INPUT 


INTROCLI 
----» ENTRY FOR CLIENT 349 a 
DELIVERY ADDRESS 
-. THE OLD OAKS 
29, PRIORY STREET 
LAKESIDE INDUSTRIAL ESTATE 
SHEFFIELD 


BUYING GROUP ... 348 (3) 
----» ENTRY FOR CLIENT 350 


DELIVERY ADDRESS 
. CAMDEN TOWERS 
17, WINSTON CHURCHILL ROAD 


T SOUTHAMPTON 


BUYING GROUP ... (4) 


INVOICING ADDRESS 
.-. CAMDEN TOWERS 
ADMINISTRATIVE HEADQUATERS | (5) 
207, SMITH STREET 
SOUTHAMPTON 


----> ENTRY FOR CLIENT 351 


DELIVERY ADDRESS 
DORIAN PURNISHINGS 
110, St. JAMES ROAD 
PICCADI LLY 
LONDON W.. 


BUYING GROUP ... 
INVOICING ADDRESS (6) 


(2) 


----» ENTRY FOR CLIENT 352 


DELIVERY ADDRESS 
“CLEO SHOPS 
++ 88, QUEENS AVENUE 
f RUSSEL SQUARE 
`` LONDON W.C.1. 
BUYING GROUP ... 352 (7) 
----» GROUP RECORDED 


----» ENTRY FOR CLIENT 353 
DELIVERY ADDRESS 


----» END (8) 


ej 


FIRST STEP 


Write the functions necessary for entering new clients. These functions 
behave as demonstrated by the example set out on the previous page. 


l - The computer attributed the client's codes, in increasing 
order, l by 1l. 

2 - We indicate the client's delivery address. A blank address 
(carriage-return) will indicate the end of the task (8). 

3 - If the client belongs to a buying group, we enter the code of 
the latter. The computer automatically deduces its invoicing 
address and therefore does not ask for it. 

4 - On the other hand, a blank reply to the question "BUYING GROUP" 
indicates that the client does not belong to a buying group. 
Hence the computer asks for his invoicingaddress. Two alternatives 
are thus presented 


5 - if we type an address, it will be taken as the invoicing 
address. 


6 - On the other hand, a blank reply (carriage-return) signifies 
that the invoicing address is identical to that of delivery. 


It is seen that this procedure makes it possible for only one question to 
be answered for the majority of clients, in order to enter the delivery 
address, 


To create a buying group it has been customary to answer of the question 
"BUYING GROUP" by its own client code (see 7). The computer confirms creation 
of the group. 


SECOND STEP 


A function should print-out the list of clients, according to the presentation 
on page 68, in increasing order of clients code. 
We will see: 


- the client's code, 


- the delivery address, 


~ the invoicing address, or the statement "SAME ADDRESS" if this is the 
case. 


The symbol "G" at the begining of a line serves as reference to the buying 
groups. 


For the members of a group, we print, in place of the invoicing address, 
the statement "--GROUP--", followed by the name of the buying group. 


The function PRICLI performs this task: 


PRICLI 
G CODE ] DELIVERY ADDRESS i INVOICING ADDRESS 
D D 
nanan enn A =-=- 
G 345 SUN KING SAME ADDRESS 
350, SMITHFIELD ROAD, 
HOLLINGTON, 


LEEDS, 


THE OLD OAKS 

29, PRIORY STREET 

LAKESIDE INDUSTRIAL ESTATE 
SHEFFIELD 


349 
=- GROUP -- 


SUN KING 


207, SMITH STREET 
SOUTHAMPTON SOUTHAMPTON 
DORIAN FURNISHINGS SAME ADDRESS 
110, St. JAMES ROAD 

PICCADILLY 

LONDON W.1. 


351 


CLEO SHOPS SAME ADDRESS 
88, QUEENS AVENUE 
RUSSEL SQUARE 


LONDON W.C.l 


i 
| 
| 
| 
l 
| 
| 
! 
i 
È 
' 
i 
) 
j 
| 
l 
350 ] CAMDEN TOWERS CAMDEN TOWERS 
| et 
i 
i 
| 
| 
! 
| 
| 
! 
| 
G 352 | 
| 
| 
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1 
i 
| 
| 
Í 
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| 
| 
| 
| 
| 
17, WINSTON CHURCHILL ROAD ' ADMINISTRATIVE HEADQUARTERS 
| 
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THIRD STEP 


There must be a function which enables a client to be erased, but only after 
having checked that we have not committed a code error. For this, the function 
must display the clients name and ask for validation (see example on 

following page). 


It must be impossible for the cancelled clients code to be used by a new 
client. 
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When the cancelled client is the head office of a buying group, a message 
must clearly indicate the other clients who were members of this group. 

Moreover, the function must correct the invoicing address of these clients 
in such a way that they are henceforth invoiced at their delivery address. 


The funciton ERASECLI will perform this task: 


ERASECLI 


CLIENT CODE 
U: 
389 
a) WOOD SORREL / VALIDATE., 


CLIENT CODE 
D: 


398 
(2) VULCAN'S FORGE / VALIDATE. . 
----» CLIENT ERASED 


CLIENT CODE 


345 
SUN KING / VALIDATE,....... 


(3) THIS BUYING GROUP INVOLVED CLIENTS: 349 356 
----» CLIENT ERASED 


CLIENT CODE 
Q: 


END 


NOTES 


1 ~ After entry of the client's code, the computer displays its name, 
and requests validation. Here there has been a code error (389 
instead of 398), and the user replies NO. 

Hence this client will not be erased. 


2 - This time the code was correct, so the user replies YES, or 
even nothing at all as here. 


3 - When a buying group disappears, this message notifies the user, 
while displaying the clients who were members of it. 


A final step would consist of writing functions for correcting addresses 
The data structure used here would complicate this task to a rather 
significant degree. This is its main shortcoming. 


BLOCK-HEADS 


As in the topic "Block and Tackle", we have an array of L lines and C 
columns, representing C successive values of L bits of information, 
For example, RESULTS represents the results of the three sales outlets 
of a wheels manufacturer over the last 6 months: 


RESULTS 


921 668 625 346 800 643 
768 778 440 942 907 924 
365 398 616 711 780 830 


This time, we are concerned not only with the results of each sales 
outlet, but also with the monthly totals, The presentation of the diagram 
will thus be slightly different. 


The vertical scale and the width of the blanks will be controlled by the 
left-hand argument of the plotting function. 

For example, with the scale 5 in one thousand in height, and with blocks 
of 8 characters width, the following is obtained: 


005 8 BLODIAG RESULTS 


--I 


i 
| 
i 
i 
l 
f 


l 
{ 
L 
f 
-=l 
| 
| 
j 
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Furthermore, we wish to be able to omit the width of the blocks; for 
example: 


0.01 BLODIAG RESULTS 


1n default the funciton must plot blocks 5 characters wide. 


OIL ON TROUBLED WATERS 


We want to follow the cost prices of a range of lubricants. Three variables 
contain the following pieces of information: 


= the vector CODE contains the codes of each of these products, 
- the matrix PRODUCT contains descriptions of them, of 20 characters. 


- Finally the vector PRICE contains the cost prices. 

Certain products are basic products, whose cost price is known. Others 
are mixtures, Their price is therefore calculated from the proportion 
of the qualitites of products used in their composition, 


Hence part of the vector PRICE is entered manually, whereas the rest 
is calculated automatically. 


In the following examples, we have used a mini catalogue of imagined 
products, which adequately covers all the possible alternatives. 


You are asked to write a set of functions enabling the functions shown 
hereafter to be created: 


- 1 - PRINT-OUT OF THE COMPLETE CATALOGUE 


PRINPROD 
CODE PRODUCT PRICE 
207 CASTOR OIL 60 
208 ELBOW GREASE 106 
209 SARDINE OIL 20 
210 DO. 20 W 40 68 
215 FRYING OIL 33 
318 EMULSIFIER E 300 
320 S0. 20 W 40 62 
332 PEANUT OIL 150 
333 VINEGAR 52 
335 VINAIGRETTE 148 


This catalogue is printed in increasing code order with prices shown. 
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- 2 - ENTRY OF NEW PRODUCTS 


We will in fact introduce only their description; the computer will 
assign the codes, in increasing order, starting with the biggest. 
The prices and compositions are introduced at a later stage. 


Below, we have entered two new products. The code on the left 
is printed by the computer and the description is supplied by the 
user. The program ends when the user does not supply a description, 


INTROPOD 
CODE DESCRIPTION 
336 COD-^LIVER OIL The code assigned is 
337 SPECIAL COMPETITION actually equal to 335 + 1. 


338 


We could check the result by printing a new catalogue. We would 
find that the prices of these products are temporarily zero. 


- 3 - INTRODUCING OR UPDATING COMPOSITIONS 
This task is performed in two stages: 


a) We enter the code of the product concerned and the computer 
displays its description as a means of checking. It is the 
computer's job to confirm that there is no error before 
proceeding to the 2nd stage. 


b) We enter the composition in the form of a series of pairs 
of numbers, For example, in the following processing we 
typed: 

5 210 30 336 45 320 20 335 


This signifies that the product concerned (337) is composed 
of: 


5% of product 210 
30% of product 336 
45% of product 320 
20% of product 335 


Of course, the computer checks that we have introduced 
pairs of values and that the codes introduced actually 


exist. 
On the other hand, it does not check if the total makes 


100%. 
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Example: 


UPDCOMP 
PRODUCT CODE [END] 


337 1 
SPECIAL COMPETITION ; VALIDATE... 2 
COPAS TITAN [END] 3 

5 210 30 336 45 320. 20 | 335 4 
PRODUCT CODE (END) 5 


END 


In (1), we enter the product code. The computer displays its name (2), 
and requests confirmation. The user can, as here, answer nothing, and 
the processing continues, or answer WO if he thinks he has committed a 
product code error. In such cases the computer would put the question 
again. 

In (4) we enter the product composition, as shown on the preceding page. 
We then pass on to the next product, We type END in order to stop 


We will assume that a product NEVER comprises more than 10 components. 
When this updating is carried out, the constituted products prices are 


re-calculated, in accordance with the new compositions, 


PRINTING THE COMPOSITION OF DERIVATIVES 


We will adopt the form below, where each product name is followed by its 
composition. For example, product 320 is composed of 85% of product 209, 
and 15% of product 318. 


PRINCOMP 
CODE PRODUCT COMPOSITION 
210 DO. 20 W 40 3 P 207 « 17 P 208 
320 $0. 20 W` 40 85 P 209 « 15 P 318 
335 VINAIGRETTE 3P 318 * 90P 332+ 7 P 
337 SPECIAL COMPETITION  $ P 210 + 30 P 336 + 45 P + 20 P 335 


ais 
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UPDATING THE LIST OF PRICES 


The computer asks which prices are to be modified. If we reply ALL, 

the computer seeks all the basic products and asks their price. 

If, as below, we give a restricted list of products, the computer checks 
that it concerns basic products, then asks their price, one after the 
other, 


For simplification, reference can be made to the current price of a 
product. Hence the expression SAME+15 signifies that the price of 
product 318 is increased by £15. 


UPDPRICE 
WHICH PRODUCTS (ALL, END] 
D: 
209 320 332 336 
<---> INCORRECT: 320 This is actually a compound. 
watch PRODUCTS (ALL, END} 
209 318 332 336 
SARDINE OIL The computer displays the 4 
0: products, and asks their price. 
19 
EMULSIFIER E 410 
D: 
SAME+15 Here reference is made to the 
E OIL present price. 
156 
CODLIVER OIL 
n: 
4l 


All the prices of derivatives are recalculated of course in the same 
way. We can see this by printing the new catalogue of products PRINPROD 


(see next page). 


1t is seen in this print-out that the prices of products 209 318 332 
and 336 have been modified, and that the prices of products 320 and 
337 have been calculated on these bases. 


cs 


CODE PRODUCT PRICE 
207 CASTOR QIL 60 
208 ELBOW GREASE 106 
209 SARDINE OIL 19 
210 DO. 20 Wao 68 
215 FRYING OIL 33 
318 EMULSIFIER E 410 315 
320 $0.20 W50 64 
332  PEANUT OIL 156 
333 VINEGAR 52 
335 VINAIGRETTE 154 
336  CODLIVER OIL 43 
33? SPECIAL COMPETITION 76 


ERASING A PRODUCT 


Before erasing, the computer displays the product name and requests 
confirmation, as with step 3. 

If the product is used in the composition of another product, the 
computer must refuse to erase it. 


ERASEPROD 
PRODUCT CODE (END) 


318 
EMULSIFIER E 410 3 VALIDATE... 
THIS PRODUCT IS A COMPONENT OP: 320 335 
----» IT MAY NOT BE ERASED 


PRODUCT CODE (END) 


215 This product does not occur 
FRYING OIL S VALIDATE... + in the composition of other 


PRODUCT CODE (BND) products; it will be eraséd. 
END 
----» TERMINATE 


CHANGE OF STATE 


It could happen that a derivative, manufactured by the company, is 
replaced by an identical product bought ready made from a sub-contractor. 
Hence it passes from the "derivative" state to the "basic product" 

state. A function must allow this passage, and enquire the new cost 
price of the product. Here again, we will be able to make reference 

to the current price. 


ERASECOMP 


PRODUCT CODE (END) 


B: 


DO. 20 W 40 


210 


NEW PRICE [SAME] 


D: 


SAME-18 


PRODUCT CODE [END] 


D: 


ERD 


----» TERMINATE 
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3 VALIDATE... 


The computer links on to another 
product. 


Again, all the prices will have to be recalculated. 


Here is the state of the data after all these processings: 


207 
208 
209 
210 
318 
320 
332 
333 
335 
336 
337 


CASTOR OIL 
ELBOW GREASE 
SARDINE OIL 

DO. 20 W 40 
EMULSIFIER E 410 
S0. 20 W 40 
PEANUT OIL 
VINEGAR 
VINAIGRETTE 
CODLIVER OIL 
SPECIAL COMPETITION 


It is your task to write all these functions, and to define an adapted 
data structure. 
Do not try to over-optimise your answer, 
or composition modification do not hesitate to recalculate ALL the derived 


prices if this can simplify your function. 


For example, after each price 


It is understood that in an 


actual application bearing on several hundred products one would only 
xecalculate the prices affected by the modifications carried out. 


THREE PUZZLES 


we will finish with three puzzles the sole purpose of which is wo entertain 
us. To increase the difficulty, they will have to be solved WITHOUT LOOPS. 


THEME l 


We wish to transform a vector of characters by inserting a number of 
blanks into it so that the resulting vector has a prescribed length. 
This is what we call "justifying" a text. Imagine that RECALL is the 
following vector: 


RECALL + 'CREATING LOOPS IS TOTALLY PROHIBITED" 


This is a vector of 36 characters, It can be increased to 40 characters 
by: 
40 JUSTIF RECALL 
CREATING LOOPS IS TOTALLY PROHIBITED 


It can be increased to 45 characters by: 


45 JUSTIF RECALL 
CREATING LOOPS IS TOTALLY PROHIBITED 


The blanks inserted by supernumbering are divided as uniformly as possible 
at places where the initial text already had blanks. 


Such a function enables texts to be presented in a particularly aesthetic 
way. We could have used it to improve the result of the function 
PRINTEXT in the topic "Nou throw away my book" 


THEME 2 


Starting with any vector, we wish to constitute a second from it by 
repeating each of its elements. The number of repetitions is given 

by the left-hand argument of the function; the vector to be transformed 
is given as right-hand argument: 


32516 REPRO28654 
22288666665444444 
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In accordance with the left-hand argument, we indeed obtain: 


3 times the value 2, 
2 times the value 8, 


5 times the value 6, etc... 


Preferably, the function will have to accopt vectors of characters as 
right-hand argument: 


1 2 2 REPRO 'ROT' 
ROOT 


THEME 3 


We know the differences which separate various points in a town. These 
points are numbered (here from 1 to 6), and we have assigned the distances 
which separate them in the matrix DIST: 


Te eg tee 


Y 0 6 7 4 6 7 Hence, the distance from point 
i i 3 

a xin a ieren Aha lalasanes LIe ols 

3 8. 2.059 3 3 to point 1 is equal to 8. 

4 31 5 0 6 4 

5 610 9 5 0 8 

6 7 4 4 4 8 0 


We wish to know the length of any journey (closed or not) which is given 
by the list of points encountered. A function must undertake this 


calculation: 


DIST BUS 25136 
26 


This signifies that the journey 2 + 5 + 1 > 3 > 6 is of length 26. 


We can generalise the problem to accept a matrix of journeys comprising 
the least stages by immobile stages: 


2513666 
4165234 
2324566 


TO THE READER 


This work is certain to contain errors, gaps and imperfections. 
The author would welcome the benefit of your criticisms, suggestions 
or answers, if they are clearer, They will serve to improve later 
editions and to create an exchange of views, which can only be 
advantageous to the development of APL. 


Do not hesitate to send your detailed comments to the publisher, in 
the following form, so that we know who you are and can answer 
you if need be. 
Thanking you in advance. 
Bernard LEGRAND 


WORK "APL: Management Problems with Answers and box of tools" 
COMMENTS for the author, sent by: 


Mr. 

Company: 

Address: 

Telephone: 

Envelopes adressed to: John Wiley & Sons Limited, 
Baffins Lane, 
Chichester, 


Sussex. 
P019 1UD. 


ANSWERS 


References between square brackets [8] refer to instructions 
of the funetions described in the text. 


References to the course refer to the work "Learning and 
Applying APL", by the same author. 


PRELIMINARY WORK 


FIRST THEME 


A simple method consists of generating a series of whole numbers, the 
beginning of which is then dropped: 


V ReBEGIN TO END 
n1 Re (BEGIN-1) WEND 
v 


This method works of course, but if we want to calculate the whole 
numbers from 5629 to 5644 it is unnecessary to create a series of more 
than 5000 values in order then to retain only a few of them! 


Hence the following method is preferable: 


V R-BEGIN TO END 
ni Re (BEGIN-1) +1 END-BEGIN=1 
v 


This time only the necessary whole numbers are generated. 


GENERALISING 


1f we generalise the function, we see that it receives operands which 
this time are vectors. 
For example: 

41 52 56 to 65 77 83 98 ....etc.... 


In such an expression, the series of whóle numbers to be created is 
determined uniquely by the last term of the left-hand operand, and 

the first of the right-hand operand. The other elements are conserved 
without change. 

Whence the solution: 


v Re BEGIN TO END;D; SERIES 


ul SERIESeD+1 (Y4END) -De" 14 BEGIU 
(2) ReBEGIN, SERIES, 1¥END 
y 


Other very colse alternatives are possible. 
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SECOND THEME 


This function presents no difficulty. 


V ReADDRESS AFTER MESSAGE 


al m 
(2] fee! MESSAGE 
13] ReADDRESS 

v 


THIRD THEME 


We cannot place a vector vertically by transposition, which has no 
effect on vectors. Hence it must be transformed into a matrix. 


If the vector has n elements, a matrix of n lines and a single column 
must be made from it, i.e: 


({pVEC},1) p VEC 
Hence we can apply the FORMAT function, which gives the following function: 
V ReFOR VERT VEC 


[1] RePOR € ((pVEC), 1) p VEC 
v 


We can improve this first draft by establishing that the second element 

of the FORMAT is often zero (print-out of whole numbers). Hence the 

user can be spared the trouble of explicitly indicating it by means of 

the TAKE function. 

In effect : 2+ FOR will give 6 2 if the user has typed 6 2 
but = 2 + FOR will give 6 O if the user has typed 6 


Hence the following function is obtained: 


V RePOR VERT VEC 
nl Re(2*FOR) © ((oVECO),1) o VEC 
v 
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FOURTH THEME 


The relative spacing between two data A and B is obtained by one of the 
two following formulae: 


(A=B) 3B or (A#B)-1 


The rsult obtained is decimal. Its percentage value can be obtained 
by multiplying by 100, then rounding off the result. 


VR-APCB 
[e] Re(AtB)-1 
(2) Re10.5*100xR. 
v 


This function accepts operands of all dimensions. 


FIFTH THEME 


There is an apparent answer: laminating. This is the short, elegant 
answer in appearance. 


V Re A WITH B 
a) ReA, 11.5]B 
V 


Certain functions however, will probably require that we preparé a matrix 
for them constituted by linking several vectors as right-hand operand. 
For example: 


FUNC Vi WITH V2 WITH V3 WITH V4 


Hence, while the first function WITH indeed receives two vectors as 
operands, the second receives a matrix. The preceding answer falls 
by the wayside. Hence we will retain the following solution for 
preference, which has the elegance of solutions which work well: 


v Re A WITH B 
[65] Re A, (2*(0B), 1)pB 
v 


SETTLING OF ACCOUNTS 


FIRST STEP 


The easiest method consists of calculating all the values which must 
feature in the chosen column of BOOK, and catenating them into a vector 
of 14 values. 


We thus calculate: 


- the costs, which axe the first eight values introduced, 
and their total (instruction [1]), 


the returns, which are the last three values of the 
right-hand argument, and their total (instruction [2]), 


- the month's result, which is the total returns minus 
the total costs. 


All these values are then catenated into a vector, which therefore indeed 
possesses 14 elements [4]. 


It is sufficient to place these values in the column of BOOK which is 
designated by the left-hand argument; instruction [5]. 


V MONTH RECEIVES VALUES ;TOTCOS; COS; TOTRET; RET; REC; COL 


ni TOTCOS + «/ COS-BtVALUES 
[21 TOTRET + +/ RET- 3+VALUES 
[31 REC + TOTRET-TOTCOS 
[4] COL * COS, TOTCOS, RET, TOTRET, REC 
[5] BOOK; MONTH] « COL 
v 


Here we have used the function TAKE; we could have equally well extracted 
the values by indexing: 


COS + VALUES(\8] and RET — VALUES[9 10 11] 


It must not be forgotten to place, in the header, all the variables which 
are only working variables internal to the function. On the other hand, 
the function acts directly on BOOK, which is a GLOBAL variable for it. 


The function does not give an explicit result, its only aim being to 
update an array of values, and not to restore a result destined for other 


calculations, 
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IMPROVEMENTS AND DETAILS 


Execution of the function produces no apparent effect. It is thus advisable, 
in such cases, to print-out a message indicating that the function has 
suitably run its course. 

Por example: 


IT'S DONE 


Furthermore, it would be sensible to check that the data entered satisfies 
certain essential conditions: 


- only one month must be entered, 
- this must be a value between 1 and 12, 


- it is essential that 11 values are entered. 


All these checks must be made bofore any other work, which would lead 
to writing the function thus: 


v MONTH RECEIVES VALUES jTOTCOS; COS; TOTRET; RET; REC; COL 


ul MONTE-11MONTH 
(21 VALUES, VALUES 
t3) + (MONTHe112) A(11=p VALUES) ) /OK 
14) 'MONTH OR NUMBER OF VALUES INCORRECT' 
[51 20 
(61 OK: TOTCOS-«/COS«-8^ VALUES 
71 TOPRET++/RET*84 VALUES 
t8] REC-TOTRET-TOTCOS 
191 COL<COS, TOTCOS, RET, TOTRET, NEC 
[10]  BOOKL; MONTH]«COL 
1] — 'IT'S DONE' 
v 


We can see that all these details have finished by doubling the size of 
the function. 


SECOND STEP 


Print-out isachieved very simply by linking the array of characters 
NECTAR and an extract from the numeric array BOOK. 

Of course, we can attain this only by transforming this extract into 
an array of characters also, by means of the FORMAT function (9). 
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The columns to be extracted are given by the argument of the function. 


We have chosen to use the dyadic FORMAT here, so as to check the position 
of the columns of nuabers very precisely. 


V DISPLAY LIST 

[1] (20p' ') , 804 LIST 

[2] n 

[31 NECTAR , 8 O * BOOK(; LIST) 
v 


The header is obtained by printing 20 blank spaces (width of the array 
NECTAR), followed by the list of months, in the same format as the extract 
of the array BOOK. 


THIRD STEP 


Having extracted the columns of BOOK corresponding to the months desired, 
we can seek the non-zero values. A reduction by OR will give a binary 
vector, the columns having at least one non-zero value. This is the 
meaning of the instruction [1], which could equally be written: 

O v.# BOOK[;LIST} 


By keeping only the useful months from the list of months, we can keep the 
remainder of the program unchanged. 


V DISPLAY LIST ;CACHE 


n] CACHE + v/[1] BOOK(;LIST] 40 
12] LIST + CACHE/LIST 
remainder unchanged: 
[3] (20p* '),8 OWLIST 
[41 v" 
[5] NECTAR, 8 Ow BOOK{; LIST) 
y 


Printing the months clearly is a very common problem. First of all a 
variable containing the names of the months, complete or abbreviated as 
here, must be constituted. As this variable can be used with many other 
functions it will remain GLOBAL in the workspace. 


Here it is called JANDEC; it is a matrix of 12 lines and 4 columns. 


We will assume that the variable LIST takes the value: 7 8 9. 


The expression JANDEC[LIST;] will give a matrix of 3 lines and 4 columns, 
constituted as follows: 


We now wish to obtain: JULY AUGT SEPT 


For this we precede the matrix by as many blank columns as are necessary 
so that each month's name has the required width. We achieve this either 
by catenation, or more siuply by the TAKE function: 


((oLIST), 78) + JANDECILIST;] 


By ravelling the result ( , ) we obtain the vector of the required 
header. 


In the function thus modified, we preferred to generalite the width of 
the numbers'columns, calling it FOR. This format can be either a GLOBAL 
variable, or a LOCAL variable, if we wish that only somebody familiar with 


APL is authorised to modify it. 


V DISPLAY LIST ;CACHE;DIM 


n] CACHE + /(1] BOOK [;LIST]#0 
12] LIS? + CACHE/LIST 

t3] DIM + (oLIST) ,-FOR(1) 

14] (200' '), , DIMtJANDEC (LIST; ) 
t5] Yt 


t6] NECTAR, FOR * BOOK{;LIST) 
v 


Here, FOR would have the value 8 0. It is a global variable. 


Note, the two commas in line {4}. One is the ravel which enables the 
matrix of the months’ names to be placed in a vector; the other is the 


catenation of this header into 20 blanks, as previously. 


FIVE COLUMNS INTO ONE 


The traditional solution to this problem consists of printing the lines one 
by one, each time comparing the family code to that of the preceding line. 
With each change of code, we print a header. 

In APL, it is possible to know the dimensions of the different "paragraphs" 
which must be printed immediately. 

Each paragraph will be printed as a whole and we will take account of the 
lines remaining available at the bottom of the page, so as to know if 
there is enough space for the next paragraph. 


Such is the working layout of the solution presented hereafter. 
We have retained the following notations: 


- curs is a vector indicating the numbers of lines of 
LISBASKET after which we change the family code. 
In other words, this vector indicates the ends 
of paragrpahs. 


- SILE is the number of lines of LISBASKET containing a 
given paragraph. 

- OCCUPIED is the total number of lines occupied by a paragraph. 
OCCUPY of course equals SIZE«6. 


- REMAINDER is the number of blank lines remaining available 
on a draft-screon. At the start, REMAINDER 
equals DRAFT. 


- ORIGIN marks the position of the end of the preceding 
paragraph. Hence this value serves as origin 
for calculation of the numbers of lines to be 
printed. 


A preliminary function initialises all these values, and constitutes the 
variables HEADER and DASHES which will be used in the presentation, 


V PREPARATION ; USELESS 


(1) CUTS + (LISFACOA1+LISFACO, 999) /ApLISFACO 
i21 HEADER + ' ',,(- */LISSP-' ')óLISSP 

BJ DASHES + (10xl^pLISSP)p* --- 

[41 REMAINDER-DRAFT 

[51 OBIGIN-O 

161 Me "PLACE THE PAPER AT THE TOP OF TRE PAGE! 
{73 USELESS) 


v 
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Detection of cuts is made by comparison between the vector LISFACO and the 


same vector displaced one position. 
If LISFACO is the vector: 
11112222223344445..... 


CUTS will equal ........: 4 lo 12 BE. dee 


In order to improve presentation of the names of the towns, we have sought 
to frame them on the right, and not on the left. For this we count the 
number of blanks in each line by */LISSP-' ', and we make them pass to the 
top by rotation (see a better method on page 183 of the course). By 
ravelling this matrix, we obtain a vector of the suitable header. Here we 
have preceded it by two blanks so as to centre it better [2]. This explains 
the double comma: one to ravel the matrix, the other for catenation. 


The lines of dashes will be printed by means of a variable calculated once 
for all [3]. 


At the start of the work, the number of lines remaining blank is of course 
equal to a draft [4], provided that the paper is suitably positioned. 
Hence a message asks the user to position his paper. But the computer 
must wait for the end of this manoeuvre. This is why we hand over to the 
user by means of a quote-quad [7]. No use will be made of what the user 
answers, whence this variable USELESS. 


PRINCIPAL FUNCTION 


After preparation, a loop prints the paragraphs one by one. It is the 
function PRESENTATION which effectively carries out the printing: 


V SPLIT; SIZE; HEADER; DASHES ; REMAINDER; ORIGIN; CUTS; OCCUPIED 


ni PREPARATION 
i21 LOOP: OCCUPIED«-6*8IZE + CUTS[1)-ORIGIN 
3] PRESENTATION 
{4] REMAINDER-REMAINDER-OCCUPIED 
I51 ORIGINCUTS [1] 
6) CUTS*14CUTS 
(7) > (O<pCUTS) /LOOP 
v 


The size of the first paragraph is given by the first value of CUTS reduced 
by the origin [2], knowing that we will reduce CUTS bit by bit with each 


paragraph-printing [6]. 


The value of OCCUPIED is déducted immediately from this. 
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We can then print the paragraph [3]. 


There now remain only REMAINDER-OCCUPIED lines available at the bottom 
of the page [4]. 


1t is fitting next to prepare printing of the following paragraph. If the 
paragraph which has just been printed ended with the loth line of LISBASKET, 
this value will serve as origin for calculating the indices of the next 
paragraph. This is the meaning of instruction [5]. 


We can amputate CUTS of its first value and pass to the following paragraph, 
if there is one left, of course [7]. 


PRESENTATION AND PRINTING 


To print a paragraph is fairly simple if one respects the instructions of 
the statement. 

The lines to be printed are given by ORIGIN* (SIZE, and the family 
number by LISFACO(ORIGIN+1] . 


V PRINT-OUT ;EXTRACT 
n1 » 
[2] HEADER," ',LISFA(LISFACO(ORIGIN+1] i] 
(3] pd 
I4) 10 O Y EXTRACT-LISBASKET|ORIGIN*ASIZE] i] 


[5] DASHES 
[6] 100 #+/[1] EXTRACT 
(71 ET 

v 


We have named the portion of the matrix printed in (4] EXTRACT. After 
printing a line of dashes [5], it suffices to print the whole of EXTRACT, 
in the same format [6]. 


For the header the variable HEADER contains the names of the selling points. 
1t suffices to follow it by the family name. We obtain this by extracting 
the line corresponding to the family printed [2] from the matrix LISFA. 


Now all that remains is to verify the page setting. 
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An initial test serves to determine if the remaining space is sufficient for 
printing the subsequent paragraph [1]. If OCCUPIED is less or equal to 
REMAINDER on the page, we can go to instruction [5] and proceed with 
printing. 


V PRESENTATION 
[1] | *(OCCUPIEDSREMAIWDER)/VABENE 
[2] +(REMAINDER=0) /TOPOFPAGE. 
[31 (REMAINDER-1) 9 OTC [3) 
[4] | TOPOFPAGE: REMAINDER«DRAFT 
t5) VABENE: PRINT-OUT 

v 


1f there is not enough space left, we must pass as many blank lines as 
remains at the botton of the page, in order to start the next paragraph 
at the top of a page. 

We achieve this by printing (REMAINDER,1)0' ', i.e. a blank matrix of 
REMAINDER lines. 

More often, we use the character "line feed" which we obtain by indexing 
the atomic vector D or the terminal control characters vector O7C 
(see course page 277). It is this solution which has been retained 


in instruction [3] . 


But take care, printing of ? line feeds actually causesn +1 blank lines 
on the paper, since even printing of an empty vector causes a blank 

line to be printed. This is why we have not printed REMAINDER line feeds 
but REMAINDER-i. 


Another essential precaution: having jumped the appropriate number of 
lines, we are positioned at the top of a page, and it is advisable to 
update REMAINDER [4]. 


Finally, if by chance the preceding paragraph printed ends exactly at 
the bottom of its page, without leaving any space, it is pointless to feed 
blank lines. This is the meaning of instruciton [2], which in such 

cases returns directly to TOPOFPAGE. 


The solution presented in the preceding pages admits numerous alternatives 
of detail. It is important to arrive at a good result. However, you 
will notice that a wise choice of variable names cnlightens the reader, 
and greatly facilitates reading and understanding of the programs. 


SELECTED INVOICES 


FIRST STEP 


Having introduced the list of requixed months by means of a QUAD, it 
suffices to seek the months of issue belonging to this list. We obtain, 
in SEL, a binary vector of selection. [l to 3]. 


DATES(;21=0 would be equally suitable if we selected only one month, 
but would result in a length error as soon as one wanted to extract 
several months simultaneously. 


The vector SEL would suffice, by a series of logical compressions, to 
extract the values to be printed, but indexing will appear more suitable 
for use with the following questions, whence instruction [4]. It is found, 
moreover, that a succession of compressions is infinitely more costly 

than a succession of extractions by indexing. 


V PRINV ;SEL;REC 
ny cd 
I2] ‘MONTHS GELECTED' 
13]. SEL-DATES[;2)€0 
[4]  SEL-SEL/1ipSEL 


[51 

[6] 'MONTH DAY AMOUNT PAYMENT" 

t7) 

[8] IEC-DATES [SEL;2 1],AMOUNTS [SEL] , DATES [SEL; 3 4] 
[9] 05090905098 REC 


4 
y 
Three instructions (5 to 7] serve to present the header, 


The result to be displayed is obtained by catenating the various 
constituents. Note that DATES[SEL;3 4] is a matrix; also the vector 
AMOUNTS attaches itself vertically (by default) on its left, without the 
need to transform it into a matrix. Remember that a vector can be 
catenated to a matrix, provided that their dimensions are coherent. 


Be careful, as well, of the order of extraction from the columns of 
DATES: we want the issuing month first of all, then the day. 


In instruction [8], a format enables the columns of numbers to be adjusted 
under the corresponding headers. We could dispense with this and simply 
print the numeric matrix REC, but centering of the header would have 


been more delicate, 


2952. 


SECOND STEP 


We have manually constituted a small matrix of characters called MONTHS, 
of 12 lines and 4 columns, containing the names of the months. It is 

a GLOBAL variable which will remain in the workspace, and will certainly 
serve on other occasions: 


JANU 
FEBR 
MARC 
APRL 
MAY 


etc... 


It suffices to index this array by the list of the issuiüg months in 
order to obtain a matrix of characters, here called MS. This matrix 
is catenated to the matrix of characters obtained by putting the columns 


of numbers into format. 


There are few instructions to change: 


V PRINV ;SEL;REC;MS 
nl "t 
i21 "MONTH SELECTED' 
(31 SEL-DATES [;21€0 
£4} SEL*SEL/19SEL 
E5] MS<MONTHS [DATESTSEL;2] :] 
t6] vr 
[7] ‘MONTH DAY AMOUNT PAYMENT’ 
I8] de 
t9) REC«DATES[SELi2] , AMOUNTS(SEL], DATES|SEL;3 4) 
Ho] MS, 509090508 REC 
v 


Whereas in the preceding step the FORMAT function was not absolutely 
essential, here we can no longer catenate MS, which is a matrix of 
characters, to REC, which is a numeric matrix. It is essential to 
convert the latter into a characters array either by a monadic FORMAT, 


or by a dyadic FORMAT, as above. 


THIRD STEP 


Since an expression typed by means of a QUAD is evaluated, if we give 
the value 112 to a variable called ALL (instruction inserted in [2.5]), 

the fact of answering ALL to the question asked is equivalent to introducing 
the value 112 into the QUAD. Hence we select all the months. This new 
variable must be localised in the header. 


(2.5) | ALLeu2 


S962 


The expression 1 2 3 4 5 6 7 8 EXCEPT 3 4 5 signifies that from the 
list 48, we keep only the values which do not belong to a list of 
rejects (3 4 5). 

The function is deducted from this immediately. 


V ReLIST EXCEPT REJECTS 
0) Re(~ LISTE REJECTS) /LIST 
v 


As for the function 70, this was written at the beginning of this work; 
it is useless to apply to it any modification whatsoever. 


V ReBEGIN TO END 
11] — Re(CI4BEGIN) + i 
I2) — ReBEGIN,R, END 

v 


ID) -1+ (71+BEGIN) 


FOURTH STEP 


All expressions of the form AMOUNTS 2 10000 give a binary vector, which 
will be received by the QUAD. 


Now, we already have a binary vector SEL, which serves to select the 
months. By combining these two vectors by a logical AND, we will select 
the invoices corresponding to the months and amounts required. 


We can proceed in two steps: 


"AMOUNTS SELECTED" 
sO 
SELe (SELAS) /1pSEL 


This is completely useless, and we can write directly: 
SEL« (SEINQ) /1pSEL 


Defining ALL requires more careful study. Since the function is designed 
now to accept a binary vector in answer to the QUAD, ALL must also be 

a binary value, which will not modify the initial value of SEL. 

By giving ALL the value 1, the expression SELA1 will indeed give SEL. 


V PRINV ;SEL;REC;MS;ALL 
nk x 
I2] — ‘MONTH SELECTED" 
13] ALL 12 
la] SEL«DATES(,21e0 
{5) 5n 
(6) "AMOUNTS SELECTED" 
[7] ALL 
I8] SEL* (SELAU )/1oSEL 


- the rest remains unchanged. 
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Finally the function BETWEEN must also give a binary result. This requires 
no explanation. 
v ReLIST BETWEEN LIMITS 
Uu] Re(LIS? z LIMIPS(1))A(LIST < LIMITSI2]) 
y 


Such a function can serve on numerous occasions. 
FIFTH STEP 


Instructions [1 to 8] are unchanged, and we put the list of the months 
relating to each invoice in MS; for example: 


Assume that the Mj is the vector 2222344455 
We require to keep only the months which differ from the preceding one. 


For this, we shift MS one notch by means of 7140,48 and we compare with 
MS: 


Here is MS z 2222344455 
Here is 71«0,MS : 0222234445 
And here is BIN + MS # ~140,MS z 1000110010 


This vector serves to eliminate the redundant months by compression 
BIWAMONTHS [MS;] or BIN/(1JMONTHS(MS;} it serves to insert the adequate 
number of blank lines by means of expansion. Such is the meaning 

of instruction [11]. 


Use of the Same binary vector to compress and then expand the same data 
is a classical APL solution; hold it! 


Y PRINV ;SEL;RECSHS; ALL; BIN 


Ij E 

2] "MONTHS SELECTED* 
13) ALLe112 

(4) — sekeparest;21e0 
15] ky 

l6] — ‘AMOUNTS SELECTED* 
U] ALL 


I8] — SEL-(SELAU )/105EL 

I9] — MS-DATES [SEL;2 

[10] BIN«MSAÁ 140,48 

Q1] MS+BIW \U1BIN/ [L1MONTHS (M55 ] 


t12) 
[13] ‘MONTH DAY AMOUNT  PAYMENP 
ua '* 


(15] REC+DATES (SEL; 1] AMOUNTS SEDI DATES TILI 3 4] 
116] M 509090508 RE 


The result is worth while! 


NOW, THROW AWAY MY BOOK 


ENTERING THE TEXT 


After printing a message [1-3], the user is permitted to introduce a line of text 
by means of a QUOTE-QUAD [5]. 
If this line is empty (carriage-return), a test [6] returns to the end of the 


program, 


V VEC + INTROTEXT SLIWE 
[1] kis 
[2] “TYPE YOUR TEXT ; END BY CARRIACE-RETUEN' 
13) 0 

[4] vec + + 

(5] VAZYTOTO: LINE, 0 

[6] — +(O=pLINE) /OUTPUT 

D] — VEC-VEC,' * LINE 

[8| — -VAZYTOTO 

[9] OUTPUT: VEC- 14VEC 

v 


If the line is not empty, we catenate it to the embryo of the already constituted 
result, separating them by a blank [7]. Then a jump [8] returns to entry of 


the next line. 


In order, however to be able to start the process, an initial value must be 
given to VEC. This is the meaning of instruction [4], where VEC receives an 
empty vector. 


Only, when we leave the function, VEC starts by a blank which comes from the 
first execution of line [7]. Hence this blank must be eliminated by instruction 
19]. 


For the meaning of the comma, in line [5], consult the course, page 139. 
It is recommended to ravel any value introduced by means of a QUAD or 
QUOTE-QUAD, if we wish to be able to test its dimensions afterwards. 


PRINTING THE TEXT 


The aim is to create a matrix which we will constitute little by little, 
catenating the lines one under the other. As for the vector VEC above, 
an initial value must be given to this matrix MAT, This will be a matrix 
of zero lines, but having the right number of columns, in such a way that 
the catenations can be made [1]. 
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Next we look for the places where it is possible to cut the text. For this 
we examine a section of length WIDTH+1. In effect, if by chance it is possible 
to constitute a line which has exactly WIDTH characters, this is explained by 
the fact that the character situated in position WIDTH+1 is a blank. 

We have called this part of the text, on which the search [2] is carried out 
END. 


V MAT + WIDTH PRINTEXT VEC ;END;CUTS;POS; LINE 
D) — MATe (0, WIDTE)p' * 
(21 SEARCH: END-(WIDTH*l)^VEC 
[3] CUT*(ENDs* ')/ıWIDTH+1 
[4) — POS«-1^CUTS 
(5) LINE*WIDTH* (POS-1) +END 
(6] — MAT+MAT, [3] LINE 
(7) | VEC-POSVEC 
[8] + (0<p VEC) /SEARCH 
v 


Possible CUTS are given by the positions of blanks of the vector END. Of 
course we will take a line which is as long as possible, hence we will keep 
the last element of CUTS as the cutting position, 


The blank in position POS is useless, since it is at the énd of a line. Hence, 
in [5], we keep POS-1 characters, However, so that all the lines are of 

the same length, we adjust them with the TAKE function which will add the 
necessary number of blanks. 

The line thus constituted is catenated under the matrix embryo [6]. 


Thus we can drop the first POS characters of the text, including the blank 
which served in the cutting [7]. If the remaining vector is not empty [8], 
we continue the process. 


IMPROVEMENT 


In order to avoid clumsy cuts, it suffices to rectify the vector CUTS, without 
changing the rest of the processing. 


In this new perspective, a character enables a cut to be made: 


- if it is a blank character, 


- and if the following character does not feature among a very 
precise list of punctuation characters, i.e. ; ? ! : 


Two instructions must be changed: 


[2] SEARCH: END-(WIDTH+2) VEC to explore one more character. 
[31 CUTS (C14 END)A—AL VEND € 521 :' J/AWIDTHeY 


"HOPE" AND "TRUTH"? 


IMBRICATING TWO ARRAYS 


A first method consits of reserving a matrix in advance which is the size of 
the required result, which we fill with anything. There are many ways of 
achieving this, and here are three of them: 


Re ((941[1]. , 2x(p4) [2)) p 0 
Re (1 2x 94) p 0 


Re A,B answer retained here. 


thus we can say that we place the values of the right-hand operand in the 
equal columns [2], and the values of the left-hand operand in the unequal 


columns (3]. We obtain: 


V Re A IMBRICATES B 
[1] RAB 
(2) Bls2«1 (oA) 2] -B 
[B] Rl; 1+2% (pA) [2]]+4 
v 


This solution has the disadvantage of accepting only matrices as operands. 


A second method consists of "spacing" the columns of the two operands by means 
of two expansions: 


V R+ A IMBRICATES B ;BIN 
R1] BIN + (2x71t04) p 1 0 
[2] — Re(BINM) + (BIN)NS 

y 


For example, in the case of arrays U and V of the expression, this method 
constitutes, then adds, the two following sub-arrays: 


0905050 
0000000 * 
0500050 


Moe 


This procedure is better, because it accepts vectors and arrays of three and 
more dimensions, 


But how can we resist the temptation of a solution using LAMINATION, a 
little used function and feared by beginners? Of course this solution is 
completely obscure, but it does not lack a certain charn: 
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V Re A IMBRICATES B ;DIM 
D] Red, L0.5+ppA] B 
[21  DIM-(C243pR) ,x/72*oR 
[3] — R«DIMoR 

v 


In the case of matrices U and V which are of dimensions 3 4, the result 
of laminating is of dimensions 3 4 2 (see course, pages 137 and 160). 


Here is its value: 


1 3 
9 0 
5 3 
5? 3 
9 6 
0. X 
0 8 
0 8 
etc ... 


Restructuring this array into a matrix of dimensions 3 8 actually gives the 
result required. 


This rather crazy solution also accepts vectors of characters. 


COMPARING THE TWO ARRAYS 


First of all we must look for columns which contain at least one non-zero 
value. This can be done by V/[1] OZREAL or also, as in the function considered, 


by OV.#REAL. 


Knowing the number of columns to be conserved, we consequently amputate the 
two arguments, and imbricate them by means of the function written above. 
This is the role of instructions [1] to [4]. 


Here we have adapted anasymmetrical format, so that the columns of the result 
are grouped two by two [5]. 

Hence we can put the numeric array into format. But the signs columns must 
be inserted into it afterwards. The last signs column would thus be situated 
outside the limits of the array. This is the reason why we have catenated a 
column óf blanks on its right [6]. 
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9 B + REAL COMPARE PREV ;DIM;FOR;SPACE;SIGN;COL 
O] DIM + +/ ov. AREAL 
[2] PREV + PREVI;VDIM] 
[3] — REAL + REALL; DIM] 
[4] R+ PREV IMBRICATES REAL 
[5] FOR + (4xDIM)p 8 0 4 O 
16] R- (FOROR), '' 
U] SPACE + 10«|REAL PC PREV 
[8] SIGN + SPACEX xREAL-PREV 
(9) SIGN + '- *' [24SIGN) 
(20) COL + 1412%1DIM 
11] RGCOL) + SIGN 

v 


The auxiliary function PC, written at the beginning of this book, serves to 
calculate the established spaces, The abnormal spaces are those whose 
absolute value is greater than 10; instruction [7]. 


The meaning of the spacing is given by the SIGN function (monadic x). By 
multiplying these two pieces of information one by the other, we obtain a 
matrix called SIGN, composed: 


- of zeros everywhere where the recorded spacings are less than 
10% 

- of 1 where the results exceed the forecasts by more than 10% 

- of ^1 where they are less than the forecasts by more than 


102. 


By adding 2, we obtain, for the data of the expression: 


NNN 
wn 
Ren 
REN 


By indexing a vector of three characters by this matrix [9], we obtain an 
array of 4 columns containing either blanks, or *'s. or -'s. it suffices 
to insert these four colums into the appropriate colums of the result 


[11]. 


The indices of these columns are calculated in terms of the format adopted in 
instruction [5]. Since the columns of numbers occupy 8 and 4 positions 
respectively, the columns of signs will be separated one from another by 

12 positions, the first of them being situated at index 13. This is the 
meaning of instruction [10]. 


EVERYTHING IS IN THE PRESENTATION 


We start by bordering the array on the right and on the left by a blank column 
in such a way that the horizontal lines are plotted these at the same time as 
in the rest of the array [1]. 


POSLI and POSCO receive the parameters concerning the lines and the columns 
to be plotted [2 and 3]. 


We then attempt to form a binary vector (BIN), which will serve in [7] to separate 
the lines of the given array by an expansion. 


- the length of this vector is given by the number of lines of 
the array, increased by the number of lines to be plotted [4], 


- the first horizontal line will be in position 14«POSLIU2], but 
Situated AFTER thé line of data POSLI[2], 


- there will be POSLI[1]-1 other lines, separated from each other 
by 1+POSLI(3], whence calculation of tne positions of lines 
to be inserted (instruction [5]). 
The new value obtained for POSLI serves: 


- to place zeros in BIN before expansion [6], 


- to place dashes in R after expansion [8]. 


We can thus frame the array above and below by catenation [9]. 


V ReLICO PRINT MAT ;POSLI;POSCO; BIN 


Q) Re’ "MAT 
[2] POSLI + 3LICO 
[3] POSCO + "34LICO 
[4] BIN + (POSLI[1)]+itoR)p1 
[s] POSLI + +\1+POSLI (2) , (POSLI(1]-1) pPOSLI (3] 
[6] BINIPOSLI] + 0 
(7) R+ BIN N21 R 
[8]  RIPOSLI;] + '-' 
(9) Re tme TIIR 0) tat 
(10] POSCO + 1+ +\POSCO[2] , (POSCO (1] -1) pPOSCO 3] 
(11] A(;POSCO] + '|' 
üu2] Re bt, 
v 


Calculation of the positions of the columns is very similar, but since it is 
not necessary to separate the columns of the array, it is pointless to add 1 
to the spacing of the columns, such as defined by the argument. On the other 
hand, the blank column added in line [1] renders it necessary to add 1 to all 
the positions of the columns [10]. 

It remains only for the bordering lines to be marked out on the right and 

on the left [12]. 


MONTE CARLO METHOD 


APERITIF 


The manufacturing cost of a product is the sum of the products of the prices 
of the constituent elements by the weighing attributed to them. For the 
first product, for example, we could write: 

+/ COST x WEIGHTNG(;1} 
But it is more direct to work on all the values by an inner product: 


COST *.x WEIGHING 


The figure below reduced to only 3 products and 5 components, clearly 
demonstrates this calculation: 


WEIGHING 
+ 

+ 252 

012 

ga 

1084 

4 2 1 

cosT> 57538 60 53 64 


MAIN COURSE 


The number of texts is placed in the left-hand argument. We are going to 
constitute a matrix of which each line will comprise the 6 production costs 
calculated for a random sample of prices. This matrix will be called 
ASSCOSTS, and will have NUMBER lines, and ~1+pWEIGHING columns [1]. 


Having made a price supposition for the basic elements [3], we can calculate 
the 6 production costs by the method shown above. This is the role of 
instruction [4]; the result being arranged in the lst line of ASSCOSTS. 


V R«NUMBER TESTASS ASS ;ASSCOST;SUPPO;I 
I1]  ASSCOSTS+ (NUMBER, ~1+pWEIGHINGS)p0 
[2) Jel 
(3) AGAIN: SUPPO-(ASS(1;]-1)4? ASS[2;]-ASS[1;]-1 
[4) ASSCOSTS (I; ) -SUPPO- . xWEIGHINGS 
[5] > (NUMBER2I+I+1) /AGAIN 
T6] Re(L/[LIASSCOSTS) , [0.5] (7 111488 COS78) 
v 
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A fine loop compares the index of line J with the total number of intended texts 
I5). 

The last instruction seeks the smallest and largest elements in each column of 
A85COSTS. We obtain two vectors which we laminate so as to obtain a matrix. 


Returning to the random generations, and for this working again on only five basic 
Products, for which the following minimum and maximum assumptions are made: 


mini > T 48. By 4 Bi 
maxi » 12 10 20 9 1l 


The range of possible values for each price can be expressed thus: 


- for the first : 6 + a value between 1 and 6 
- for the second : 6 + a value between 1 and 4 
- for the third : 7 + a value between 1 and 13 
= ete sses 


In other words, the values are obtained by adding, to ASS[l;]-l, a random number 
between 1 and ASS{2;}-ASS{1;]-1. This is explained by instruction [3]. 


LET'S FIND A BETTER WAY? 


This first solution is quite correct, but was a loop really essential? Could 
we have found a global approach? 

Instead of generating a vector of random prices, we will generate a matrix 
which has NUMBER lines and as many columns as components, for example 10 
lines and 40 columns. The product SUPPO*.xWEIGHING will give a result of 

10 lines and 6 columns. We thus obtain directly the 10 generations of the 
result ... an elegant simplification! 


V ReNUMBER TESTASS ASS ;DIM;SUPPO;ASSCOSTS 
[1] DIMeNUMBER,~1+pASS 
[2] SUPPO-(DIM p ASS(1;]-1) + ? DIM p ASS{2;}-ASS[1;]-1 
[3] ASSCOSTS-SUPPO+.xWEIGHING 
[4] Re(L/(LIASSCOSTS) , [0.5] (f/ [1]ASSC0STS) 
v 


This solution is more concise, as clear as the preceding one and is also 
executed more quickly, due to the absence of a loop. 


THE MOST USEFUL FUNCTION 


FIRST DRAFT 


V LIST ;FNS;DIM; CR; FUNC; NOS; DASH; ALPHA 
[1] FS+O NL 3 
[2] ALPHAe' ABCDEFGHIJKLMNOPQRSTUVWXYZ* 
[3) FNSPUS (43 7LALPHA OPIS; ] 
(4] DASHe-(SOp'-'),' * 
{5} NEXT: PUNC+FNS(1;) 
[6] DIMeltecR+O CR FUNC 
[7] TRAIT, FUNC 
(9) '' 
[9] NOS- 2 0 € ((DIM-1) ,) p1DIH-1 
[10] NOS-((-DIM),6)* '['AOS,")" 
(11) NOS,CR 
na) '! 
[13] »(O«140FNS- 1 O «FHS)/FINISHED 
[14] (300'-'),' PRINT-OUT PINISHED' 
v 


place the list of names of all the functions in the workspace, given by ONL 3 
the matrix FNS. Alphabetical classification is carried out by the method shown 
Statement [3], but an alphabet of 37 letters is needed, followed by decoding 
base 37. 


The variable DASH will serve to separate the functions from each other. 


A loop then processes each function individually: 


- we take the first function name, and place it in PUNC. 
- CR will contain the canonical representation of this function [6]. 


- Instructions [7-8] print a line of dashes followéd by the function 
name. 


The lines must then be numbered. They are DIM-l in number since 
the header is not numbered. In order to place, iDIM-l vertically, 

it would be possible to use the function VERT written at the beginning 
Of this book. For reasons which will be shown later, we have 

preferred to write the equivalent instruction [9]. | 


We can frame the numbers with square brackets, and precede them by a 
blank line and follow them by two blank columns by means of the TAKE 
function [10]. 


It remains only to print the numbers list and the canonical repres- 
entation of the function, side by side [11-12]. 


We then drop the first name of the list of functions, and proceed to the next 
if there are still names remaining to be treated [13]. If not we print the end 
Of work message. 
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IMPROVEMENTS 


To eliminate printing of the LIST function, it suffices to erase it in the 
matrix FNS. An inner product by V.# indicates which function names differ by at 
least one of théir letters from LIST. In order to accomplish this inner product, 
the character string "LIS7" had to be dimensioned to the dimensions of FNS. 
Compression on the lines of FWS leaves only the names of the other functions [2]. 


V LIST FNS; DIM; CR; FUNC; NOS; DASH; ALPHA; EMPTY 
[1]  FWS-OL 3 
[2] PNS+ (PNSV.# (CL4pFNS) ^' LIST! )/ (LIENS 
13] ALPHA«' ABCDEFGHIJKLMNOPQRSTUVWXYZ 0123456789" 
(4)  PRSPNS (À371ALPHANSENÓ ; ) 
[5]  DASH-(50p'-'),' ' 
[6] EMPTY+(0 ,"1*pFNS)p'" 
[7] — NEXT: PUNC+PNS(1;1 
[8] — DIM-l*oCR-ll CR. FUNC 
[9] — *DIM»1) /NORMAL 
(10) EMPTY<EMPTY, [1} FUNC 
[11] >TESTEND 
[12] NORMAL: DASH, FONC 
ua) '' 
[14] NOS- 2 O% ((DIM-1) 1) piDIM-l 
[5] NOS- ((-DIM) ,6)4 ' iNOS," 
[16] NOS,CR 
nz 
118] TESTEND: *(O«l*pFNS- 1 O VFNS)/MEXT 
119) +(e oEMPTY) /NEXT 
[20] (30p'-'),' EMPTY OR LOCKED PUNCTIONS* 
mai ot 
122] EMPTY 
[23] '" 
124] OUTPUT: (300'-').' PRINT-OUT PINISHED' 
v 


Most of the function remains unchanged, but at the beginning of the work [6] 
we constitute an empty array intended to receive the names of the empty or locked 
functions. 


In line (9) a test enables normal processing to be undertaken if the function 
concerned comprises at least one instruction in addition to its title. 
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Otherwise we add the funciton's name to the array EMPTY, and then jump 
directly to the end of the work test without printing anything. 


At the end of printing, at line [19], if the matrix EMPTY is still empty we 
jump directly to the end of work message (24]. 


If we find empty or locked functions, a suitable message is printed [20], and 
we then print the contents of the array EMPTY (instructions [21 to 23]). 


CRITICISM 


The result is a rather long function, which does not summon any sub-function. 
This is deliberate. 

This function is actually intended to be copied from one workspace to another, 
in order to perform print-outs. It is easier to copy only one function 

than to copy three or four, disregarding the fact that these functions would 
then clutter up the workspace. 


Among improvements which could still be applied to this function are: 


- shifting of labels of a character to the left, 


- the control of page setting, in such a way that a function 
is never printed "straddled" on two consecutive pages. 
This type of problem is the subject of another topic 
(see "Five columns into one"). 


- An alphabetical classification accepting underlined letters, 
and effective even for very long names. 


SEARCHING FOR SKILLED WELDERS 


FIRST QUESTION 


v WELDI LIST ;CACHE 
ul CACHE + v/ WELQUAIE LIST 
121 CACHE /i1] WELDERS 

v 


The first instruction enables us, in the matrix WELQUAL to examine which 
qualifications feature in the given list, It is sufficient that a welder 

possess one OR the other to be displayed. This explains the reduction by OR. 
The binary cache obtained enables the corrosponding names to be selected [2]. 


SECOND QUESTION 


V QUAL WELD2 DATE ;CACIE;MAT 

[1] — MAT-WELDATE x WELQUAL=QUAL 

[21 CACHE<V/MAT> DATE 

13) (CACHE/|1]MELDERS), 4 VERT CACHE/[1] */MAT 
v 


WELQUAL-QUAL gives a binary matrix, l's of which indicate which welders possess 
the given qualification. By multiplying by the matrix of dates [lj, we obtain 
a matrix MAT containing either zeros or the renewal date of the given 
qualification. 


We can thus seek, among these dates, those which are later than the date given 
as argument [2]. The result is a binary matrix, and the same reduction by OR 
as before gives the same binary cache, 


Extracting the names is similar. Extracting the dates is a little more complex, 
since they are dispersed in the matrix MAT. Here we have added its terms, 
knowing that there is only one non-zero value per line. 

Vertical printing of the dates vector is obtained by the function VERT 

written at the beginning of this work. 
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THIRD QUESTION 


In order to solve this problem, the date indicated by the argument must be 
compared with the various dates at which the wolders must renew their qualifica- 
tions. These renewal dates can be calculated by adding the validity period 

to the last renewed date given by WELDATE. 


Unfortunately, MLLDATE contains zeros, which will falsify the results. 
Furthermore, the definitive qualifications are assigned the value zero in the 
vector PER. This must be remedied. For this reason the first two instructions 
serve to calculate a vector DURATION, which is a replica of PER, in which the 
zeros have been replaced by 999. 

The instruction [3] gives the renewal dates, adding the validity duration of each 
qualification to MELDATE. We can deal with the zeros of WELQUAL, by means of 
the INDEX-OF function. As there are no zeros in QUALIF, the expression 
QUALIF,WELQUAL gives the value 15 for each zero encountered. On indexing 
(DURATION, 999) with 15, we obtain 999. 


V WELD3 DATE ;DURATIOW; NB;NO; SIONS; URGENT; TO OLATE; REN 
n] DURATION-PER 
(21 DURATION [ (PER=0) / ipPER}+999 
[3] RENCWELDATE + (DURATION, 999) [QUALIFiWELQUAL) 
(4]  NBeltoWELDERS 
[5] SIGNSe- 2 6p" ty 
t61 NO+1 
"1 NEXT: URGENT<DATE2REN (NO; } 
[8] +l URGENT) /NEXT 
[9] TOOLATE+DATE>REN LIO; ] 
[10] WELDERS[NO;), 6 O w URGENT/WELQUAL (NO; ] 
[11] (10p' '), ,SIGNS(1+URGENT/TOOLATE 
[12] OUTPUT; +(NB2NO+NO+1) /NEXT 
v 


Hence REN contains the date at which each qualification of a welder must be 
renewed. NB will contain the number of welders [4]. We then examine each 
welder in succession, by means of the index WO, which is initialised at 1 in [6] 
and which increases to NB in (12). 


For each welder, the vector URGENT indicates the qualifications which expire 
on the date shown, or which have already lapsed [7]. If there are none, 
test [8] jumps directly to [12]. 


On the other hand, if certain qualifications must be renewed, we calculate 
those which have lapsed in TOOLATE. Line (10) prints all qualifications to 

be renewed. Line [11] selects, in the matrix SIGNS, either a series of blanks, 
or an underlining dash, in terms of TOOLATE. The dimensions of SIGNS conform 
with the formatused to print the qualifications. 
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THE PLOT THICKENS 


Certainly not! When seeking a qualification, it is sufficient to replace it by 
the list of qualifications which cover it. 
For example, when seeking welders who have qualification 308, we must in fact 


search for those which possess any one of qualifications 308, 313, 500, 510, 
312. 


It is sufficient to modify the right-hand argument of WELD1 as follows: 
[0.5] LIST + LIST, (v/EQUIVELIST) /QUALIF 


The same modification applies to WELD2, but the matrix MAT may contain several 
non-zero dates for the same welder, 

Now take the case wherewe are lookingforwelders who have renewed their 409 since 
1980, 


- the list of qualifications concernedis; 409 and 512 


- the welder MATTHEWS possesses both these qualifications: 
the corresponding line of MAT will thus equal: 


82 81 0 0 0 


- if, as previously, we add these, we will find 163! 
Hence, the most recent date must be obtained by reducing by the maximum, 


V QUAL WELD2B DATE ;MAT;CACHE;LIST 

[1]  LIST-QUAL, (v/EQUIVEQUAL) /QUALIF 

[2] — MAT«WELDATE x WELQUAIE LIST 

31 CACHE+V/MAT>DATE 

[4] (CACHE/(1]WELDERS), 4 VERT CACHE/(1] [/MAT 
v 


FOR AESTHETES ONLY 

We can resume the case of WELD1. The CACHE enables the names to be printed; 
it must also allow the columns of numbers to be printed. 

In order to join the two matrices WELQUAL and WELDATE and a single matrix 
which has 10 columns, we will use one of the three possible forms of the 


function IMBRICATES, written in the "Hope and Truth" topic. 


Hence we obtain, in line [2], a matrix called COUPLES which contains alternateiy 
a colum) of qualifications and a column of dates. 


We can then write the function: 
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V WELDIC LIST ;CACHE; COUPLES; NAMES 
(27 CACHE* V/WELQUALELIST 
(21 COUPLES- CACHE/[1] WELQUAL IMBRICATE WELDATE 
[31 NAMES + CACHE/(1] WELDERS 
[4] NAMES, (20p 6 O 3 0) FORBLANK COUPLES 
v 


On line (4] we could have written NAMES, (20p 6 O 3 0) 9 COUPLES but the zeros 
would have been printed. 

We have therefore replaced the function FORMAT by a defined function called 
FORBLANK, whose syntax is the same, but which eliminates the non-zero values. 
Here it is: 


V Re FOR FORBLANK ARR ;DIM;POS;DIM 
U) DiepR+FOR » ARR 
[2] Re,R 
[3] POSe (R0) A 1, “1¥R=" ' 
(4)  RIPOS/1pPOS]e* * 
[5] — R*DIMpR 
v 


We start by using the FORMAT function normally, and we note in DIM the dimensions 
of the result obtained (1]. Working on a vector, nowever, is easier, and we 
ravel the matrix obtained [2]. 


The insignificant zeros are those which are preceded by a blank. 


- R='0' gives the position of the zeros (note: in characters! 


- He! ' gives the position of the blanks, which we shift 
by idc 


For cases where the first character of a line would be zero, we work, as though 
it were preceded by a blank, by means of a 1 catenated at the beginning. 


We calculate the indices of these insignificant zeros and replace them by blanks 
14]. 
It remains only to re-establish the result in its instruction [5]. 


Of course, this function works only in the present context, when the printing 
format contains no decimals. For formats including decimals, there is quite 
a different solution. 


WILL 1T BE FINE TOMORROW? 


There are actually not two but four solutions available to us for solving this 
problem, according to the significance we attach to the letters I, and 4, 
typed by the user. 

If the introduction of data is undertaken by a QUAD: 


- I, L, A can be the names of local variables, 


- these can be names of niladic functiors which give 
a result. 


If the introduction of data is undertaken by means of a QUOTE-QUAD: 


- I, L, A can designate function names, as in the previous 
case, 


- unless we prefer to proceed with a test and jumps. 


We wili examine these four possibilities. 


FIRST SOLUTION WITH A QUAD 


V ReTEXT EXTRAPOLATE ARR ;LINE;I;A;L;HB 
[1] WB+ltpR+ARR 


[2) LINE 
[3]  AGAIN:M-eLAVERAGE. I-ARRULIWE:] 
[4] Dei4l 


[51 TEXT (LINE; 

[6] — RLLINE; ]-D 

[7] — +(WB2LINE<LINE+1) /ACATN 
v 


A loop enables all the lines of an array to be scanned in sequence, in all the 
solutions. 

The line index (LINE) leaves the value 1 (instruction [2]), toreachthe value 
NB (instruction (7]), NB being the number of lines of the given array [1]. 


For each line processed, we display the corresponding label by instruction [5], 
then in (6] we collect the values typed by the user. 


It is here that the solutions differ. 
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In the solution shown here, I is a local variable which contains the 
appropriate line of the array supplied on input. From the function AVERAGE 
we calculate the average M of these values [3]. 

Finally, D contains the last value of line [4]. 


When the user types I or A or L, the VALUE of the local variable I, A or L, 
is received by the QUAD. 


SECOND SOLUTION WITH QUAD 


In order to avoid systematically calculating three variables I, A and L, 

when there is a chance that only one will serve, we can define these words 

as function names, 

These functions will be executed by the QUAD and will thus provide for reference 
to the variables created by EXTRAPOLATE, which will be global to them. 


V Rer 
n ReARRÓLISE:] 
v 


V RM 
11]  R-LAVERAGE ARR(LINE;] 
v 


? RD 
11]  R-l14ARRILINE:] 
v 


V ReTEXT EXTRAPOLATE ARR ;LINE;NB 
IL) — NBel*oR-ARR 
(2)  LINE«l 
[3] AGAIN: TEXT (LINE; ) 
(4] R(LINE;)+0 
[5] +(NB2LINE+LINE+1) /AGAIN 
v 


The principal program is more concise, since it receives suitable prepared 
values directly by its QUAD. 


This solution has the shortcoming of requiring auxiliary functions, but it 
generalises itself immediately to the QUOTE-QUAD. 
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FIRST SOLUTION WITH QUOTE-QUAD 


We will retain the auxiliary functions I, L and A created for the last 
solution. 


Replacing the simple QUAD by a QUOTE-QUAD, the user's answer is no 
longer evaluated, but gathered like a character string. 

The EXECUTE function provides for calculation of the value representing 
this string. This remains valid in the case where the user has typed a 
series of numbers, where he has typed I, L or A. 


V ReTEXT EXTRAPOLATE ARR ;LINE;NB 
(1) NBeltpRARR 
[2] LINE*1 
i3] — AGAIN: M «204TEXTILIWE;] 
14) R(LINE;]e a D 
[5]  +(NB2DINE<LINE+1)/AGAIN 
v 


The relationship with the previous solution is striking. We have simply 
replaced D by all. 

Note also the use of "bare-output", which enables a question to be 
formulated and answered on the same line. 


SECOND SOLUTION WITH QUOTE-QUAD 


1f we wish to avoid recourse to auxiliary functions, we must proceed by 
a discriminatory test between the various answers possible. The result 
is infinitely more tedious. 


V ReTEXT EXTRAPOLATE ARR ;LINE;NB;ANSMER 
ni NB+1toR+ARR 
(21 LINE+0 
(31 AGAIN: + (WB<LINE*LINE+1) /O 
[4]  BI-20tTEXT LINE; } 
(5) ANSWER-20VD 
[6] >(*IAL'CANSWER) /AGAIN, AV, LAST 
[e RLLINE; ])-eANSWER 


(8) +AGATN 
[91 AV: R(LINE:;]e LAVERAGE ARRILINE;] 
[10] +AGAIN 


[1] LAST: RILINE;]- l*ARR(LINE;] 
(121 +AGAIN 
v 
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If none of the conventional letters features in the answer, we place the 
value typed by the user in the line of the result, after evaluating it by 
means of f£. 


If the answer contains one of the letters A or L, we move to the instructions 
whose task it is to treat these cases: [9-10] for the average [11-12] for the 
last value. 


As the result R takes the value of AH? at the beginning of the processing, 
it is pointless to modify it if the user's answer is I. This explains 
the direct return to AGAIN. 


Control of the loop has consequently been modified. 


CRITICAL STUDY 


Taking again the terms of the problem, it appears that the solutions which 
summon the QUOTE-QUAD offer more agreeable presentation than those using 
the simple QUAD. 

It also consumes less paper, and is more ecological. 


Another hazard: we can type any expression on a QUAD and it is its value 
which will be collected. Bad luck to the absent-minded person who 
inadvertently types the name of a variable other than I A L, whose 
contents are incompatible with the processings carried out. 


Quad supporters reply that it is also an advantage, since one can also 
answer by expressions such as: 
1.2XI or 24b 


The disadvantages of the QUOTE-QUAD are similar. Since the QUOTE-QUAD 
has to be followed by an EXECUTE, it is necessary to check the contents of 
the character string to be executed. In particular, it must not be empty. 


If the values introduced must be whole, the checks are fairly easy, because 
the characters of ANSWER must be limited to the following alphabet: 
'0123456789 IAL* 


If however, the values can be decimal, the checks must be multiplied, so 
as to eliminate typing errors such as: 


345..60 or .~44 or 77-46 or 12.34.56 


Unless, of course, you are the fortunate user of an APL system offering a 
control function as standard which carried out these modifications. It is 
extremely useful! 


CROSSED NUMBERING 
FIRST STEP 


V H«CROSS MAT 
{1) ReMAP(;1] CRUC MAT[;2] 
v 


The function CROSS receives a matrix as an argument, It separates it into 


two vectors and executes calculations by the funct: i 
TIE. y unction CRUC, which will serve 


V ReV CRUC H ;VER;iOR;BINH;BINV 
Q) VER+CONDENSE Y 
121 HOR-CONDENSE H 
(3) BINV+VER°.=y 
(4) — BINH-H*.-HOR 
[5] RePOTALISER BINV+.ABINA 
v 


In [1] we look for the list of all the distinct values which on the left hand 
argument can take. This task is transmitted to the function CONDENSE. 
The same work is carried out in line (2] for the other argunent. 


In the case of the example chosen: 


- VER would be the vector O 1 
- HOR would be the vector 420 452 471 519 833 953 


Hence two binary matrices are constituted which indicate, by the l's, the 
commercial engineer responsible for each contract, and the corresponding type 
of client (instructions [3 and 4]). 

With the calculation performed, BINV has 2 lines and n columns, whereas 

BINH has n lines and 6 columns. 


We are concerned now with the TOTAL contracts relating to a certain clientele 
AND with a certain commercial engineer. This indicates an inner product 

by +.A, which will give a result of 2 lines and 6 columns. This is classic 
APL, 


This product was used to solve exercise 33, page 159 of the course book. 
The simple matricial product *.* would be equally suitable, but *.A 
is closer to the expression of the problem in French. 


The TOTALISER function serves only to border the result by its lines and 
columns totals: 


v R+TOTALISER X 
(1) ERX,üu)/U0] XeX,2/X 
y 
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Return to the CONDENSE function 


The first instruction serves to eliminate the values which appear several 
times in the argument, so as to keep the list of very distinct values only. 
This classic method is studied in the coursebook, page 392. 


The second line enables these values to be classed in increasing order, to 
facilitate reading of the results. 


V R-CONDENSE X 
[1] Re( (X1X)=104)/X 
[2] ReRIÁR] 

y 


SECOND STEP 


In order to write the references, the values VER and HOR must be known by 
the CROSS function. We have also modified the header of CRUC and CROSS 
so that these variables are GLOBAL for CRUC and LOCAL for CROSS, 


9 ReV CRUC H ;BINH;BINV 


The variable POR, giving the width of the columns of figures, the horizontal 
reference REFH written at the top of the array comprises: 


- a blank zone FOR p '' 
- the values of HOR, well formatted (FOR,O) 9 HOR 
- the entry "TOTALS" (-FOR) + 'TOTALS' 


The vertical reference REFV comprises the values of VER, placed in column 
form by means of the utilitarian function VERT, then the entry "TOTALS". 


The complete array is constituted in line [4]. 


V ReCROSS MAT ; HOR; VER; REKH; REFV 
(1) ReMATL1] CRUC MAT (521 
(2) — REPV-(FORo *), ((FOR,0) eHOR) , (-FOR) +' TOTALS* 
[3] — AEPHe(FOR VERT VER), [1] (-FOR) *' TOTALS" 
[4] ReREFH, (1) REFV, (FOR, OR. 

v 


This array is emitted as the explicit result of the function, which is 
rarely the case concerning array print-outs, This option offers the 
advantage of enabling the user to use this result in a complementary function 
which could frame it, write it on a file, etc... 
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THIRD STEP 


If we know the matrices BINH and BINV, we can multiply one or other by the 
total of all contracts. For reasons of dimensions, the easiest to multiply 
is BINV (instruction [2]). 


Just as the product BINV+. ABIWH gave a sum of 1 and 0, the product P+.xBIWH 
gives a sum of amoünts. This is the result sought. 


The economical method for obtaining BINH and BINV would consist of again using 
lines [1] to (4) of CHUC. Here we have preferred to call upon the CRUC 
function itself [l], even though its result (/UMBERS) is of no use to us at 
the moment. 


V Re P BALANCE MAT ;NUMBERS; BINH; BINV 
ni NUMBERS«MAT[;1] CRUC MAT(;2]) 
(2) PeBINV x (pBINV) pP 
[3] ReTOTALISER P+.xBINH 

v 


Note, that for this, BINV and BINH had to be made global for CRUC. They 
must thus be made local for BALANCE, and for CROSS also. 


LAST STEP 


The function is composed of a series of calculations [1 to 6], then a suitable 
presentation of the results [7 to 12]. 


CALCULATIONS 


We will need the number of contracts of each sort; the simplest is to summon 
CHUC as in the preceding step [1]. 


The turn-over achieved by each commercial engineer is calculated as in the 
preceding step [2 and 3]. 


We can constitute an array of three dimensions whose three "planes" contain 
respectively, for each case indexed, the total turn-over (like step 3) 

the number of contracts (like step 1), the average R+NUMBER, The entry 
RANUMBERSl1 avoids divisions by zero. 

Lamination is the easiest way of achieving this, The result R has dimensions 
326. 


However, we want an array of 6 columns comprising 2 groups of 3 lines, or 6 
lines, or x/2tpR lines. To fill it, we must take a "turn-over" line, a 
"number of contracts" line and an "average" line. 

This is not the order in which the information contained in R is actually 
presented. 


-120- 


R being of dimensions 3 2 6, we will return it to dimensions 2 3 6 by the 
re-ventilation 2 1 38% which exchanges the first two dimensions. 

Such is the meaning of instruction [5]. 

It is thus possible to constituto the final array [6]. 


V ReP BALANCE MAT ;NUMBERS;BINH;BINV; 
1] — MUMBERS«MAT(;1] CRUC MAT(;2] 
[21 PeBINV x (pBINV)pP 
[3] ReTOTALISER P+.xBINH 
[4] RR, (1) NUMBERS, [0.5] RtNUMBERST1 
15] te 213 RR 
16] Re((x/2tpR) , T1408) RR 
[7] — REFH«-(FORp' '),((FOR,O)8HOR) , (-FOR) +" TOTALS* 
[8] — REFVe(FOR VERT VER), (1) (-FOR) *' TOTALS" 
[9] | TOPe-4x l*oREFV 
[10] AEFVe(TOPp O 1 0 O)N[1] REFV 
[11] Be(TOPo O 1 1 1)N[1] (FOR, O) eR 
(121 ReREFH, (1] REFV,R 
y 


'H; REFV; TOP; HOR; VER 


PRESENTATION 


Instructions [7 and 8] are similar to those of step 2, but the presentation 
must be expanded in the vertical direction. The final number of lines, 
TOP, is equal to 4 times 1+pREFV. 

In [10] and [211], two binary expansion vectors clearly show that we have: 


0100 


- l reference line for 4 result lines 


- 3 figure lines for 4 result lines 7 0111 


It suffices to join the pieces together again in line [12]. 


The expansion would suggest calling into use the PRINT function, written in the 
topic "Everything is in the presentation". For this it would suffice to add 

a thirteenth instruction in order to calculate the position of the lines and 
columns, and a final one to undertake the layout: 


[13] POS+(1+pVER), 1 4 , (1+pHOR), FOR+ 10 
[14] BR « POS PRINT R 


A DIFFICULT CHOICE 


In the following solutions, we have assumed that the codes supplied were suitably 
constituted of one letter followed by three figures, If this was not the 

case, it would be advisable to undertake the necessary controls before any other 
treatment no matter what the solution for the search. 


FIRST STRUCTURE 


We start by searching for all the codes whose numeric part is identical to that of 
the code sought. We could extract the latter by: 


è ol 


Where we want to be covered by a maximum precaution, it would be preferable 
to write: 


lt & ((1€'0123456789')/X),' OF 


The compression (X€'0123456789')/X enables only the figures to be kept, 

even if they are not at the head. But it could be that no figure 

typed, and applied to an empty vector, would give a value error. A good safe- 
guard hence consists of catenating a blank and zeros to the character string 
obtained, Application of the function 4 will give either a scaler or a vector, 
of which we will retain only the first term, by l4. 

It is seen that prevention of possible errors is rather tedious. 


In the function below, we have retained the simple solution, will all the 
risks which it entails. 


V ReFINDY X 
ill Re (PRONUM=k14+X) / yPRONUM. 
I2) Relt(PRORAN(R)=1+X)/R 

v 


The first instruction gives the indices of the numeric codes identical to the 
one we are looking for. 

In the socond line, PRORAN[R] gives the corresponding letters, and we compare 

them to the letter of the code sought: 14X. Compression however, gives either 
an index, or an empty vector, if the code sought does not exist. This is 

why we have performed 1^... , so as to transform a possible empty vector into 

zero. 
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SECOND STRUCTURE 


Looking for a vector of characters in a matrix is indeed a classical problem, 
studied in detail in the course, page 120. Hence we vill write: 


PROMAT A.= X or, better still PROMAT ^.» 4tX 


The result obtained is a binary vector comprising a single l, if the code 
exists, or composed uniquely of zeros if it does not exist. 

In order to know the position of the code sought, we can proceed with 
compression followed by 1t, as in the preceding solution: 


v R-FIND2 X 
{1} RePROMAT A.= 44X 
[2] Kelt R/voR 

v 


We can also look for the position of the l by the INDEX-OF function, which 
must be quicker if the code sought is situated in the initial ones. If 
however it does not exist, we will obtain the number of codes plus 1 as result, 
whence multiplication by A&1*oPROMAT to transform this possible value to 

gero: 


V RePIND2B X 
{1] Re (PROMATA.= 4tX)11 
(2) ReR x Re14oFROMAT 
v 


It will be seen, during the trials, that the gain in time is very small, 


This solution is much sounder than the preceding one, because it does not 
produce an error if the code introduced is wrongly constituted. 


THIRD STRUCTURE 


1f we subject the code sought to the same transformation to which we subjected 
the PROMAT matrix, we obtain a numeric value. It therefore suffices to look 
for its position in PROVEC by the INDEX-OF function. As in the preceding case, 
a second line transforms the result to zero if necessary. 


V BeFIND3 X 
(11 RePROVEC v 36LALPHANUMLX 
[2i ReR x RepPROVEC 

v 


This solution presents certain dangers, First of all it would be wise to 
work in 4X, Now the presence of an abnormal character in the code sought will 
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result in the appearance of the value 37 when ALPHANUMX is undertaken. 
Decoding in base 36 will give a value which may being identical to an 
existing code. 


Likewise 4*46 would be confused with 4046. This is rather tedious. 


FOURTH STRUCTURE 


V ReFINDA X 
[1]  Re(&14X) + 1000xALPHAV1*X 
[2] Re(RspPROVECB) x R«PROVECBAR 
v 


To use this variant, we have consigned the vector of the 26 letters of the 
alphabet in ALPHA, and we have transformed the list of codes in the following 
way: 


PROVECB + PRONUM + 1000xALPHA1PRORAN 


It thus suffices to cut the code sought into its numeric part and its 
letter part in order to apply the same transformation to it. 


This method summates the various risks: those associated with the presence of 
the EXECUTE function, and those mentioned for the preceding structure. 


FIFTH STEP 


V CALTIME NB ;TIMP;USELESS;I;EXP 
[1] ZB: Ue 20t'EXPRESSION :' 
[2]  >(0=pEXPe20+0 ) /o 
13). I 
I4]  TIME-D AIL) 
[5] REPEAT: USELESS- # EXP 
16] — +(WB2I+I+1) /REPEAT 
(7 "TIME = *,"U AI(2]-TIME 
(8] IB 
v 


The expression studied is introduced in the form of a character string EXP, 
by means of instructions [1-2]. We can note in TIME the central unit time 
consumed before execution. 


A loop then enables the given expression to be executed NB times. It remains 
only to compare the time consumed before and after execution. 
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To avoid printing the results rendered by execution of EXP, we have assigned 
the latter to a variable USELESS. This technique is dispensed with if we wish 
to introduce an expression which does not give a result. 


LAST METHOD 


If the operand is introduced in numeric form, all the problems mentioned vanish 
and the function is greatly simplifie: 


y RePINDO X 

Q1] RePHOVECB 1 X 

[2] — ReRxRepPROVECB 
v 


MEASUREMENTS RESULTS 


The time measured can vary significantly according to the computer used, the 
APL version introduced and the detail of the functions written. Certain 
solutions are sensitive to the position of the code sought in the list of codes, 
others are less so. 


Here are the times observed for the ten executions of the aforementioned 
functions: 


FINDY 155 milliseconds 
FIND2 220 milliseconds 
FIND28 218 milliseconds 
FIND3 70 milliseconds 
FINDA 80 to 95 milliseconds 
FIND6 50 to 65 milliseconds 


As anticipated, apurely numeric search is quicker than any other solution. If 
however we wish to retain the codes in their alphanumeric form, solutions using 
decoding are the fastest, despite the apparent complexity of this work for 
man. 


This exercise clearly demonstrates the richness of the solutions offered by APL. 
We maintain that the use of decoding is an excellent method for copying with 
alphanumeric code searching problems. 


BLOCK AND TACKLE 


In a preparatory phase, we start by: 


(2] defining a set of characters serving to plot the blocks. Here we stop 
at 10 characters, which will be re-used in rotation if we have to plot 
more than 10 blocks per group (which is rare), 


[3 


[4] and noting in RHO dimensions of the given matrix, 


calculating the height of the graph, which is that of the highest block, 


[5] filling amatrix which has the dimensions of the final graph with blanks. 
This matrix will be filled by the suitable characters. 
Calculation of the dimensions as follows: 


There are RHO[2] groups, whose width is equal to: 4xRHO(1]-1 
for the first blocks of the group, * 6 for the last, 4 3 for 
the blank space which follows, i.e., after à simple calculation, 
RHO (2) x5+4xRHO(1] 


We then fill the matrix R block by block. LI and CO are the indices of the 
line and column of MAT during processing. For each value of LI ana CO 

we plot a block whose height is MAT[LI;CO]. The character used could be 
CARILI]. We prefer CAR[1+10IZI-1} so as to use the 10 characters defined in 


rotation. 


Each block takes its place in R in the INDLI lines and in the IWOCO columns. 
At the beginning, INDCO equal 16 (instruction [7]), then as we pass form 
one block to another [13], the index increases by 4. Hence each block 
overlaps the preceding block plotted. 


On the other hand, when we pass from one group of blocks to the next [16], 
INDCO increases by 4 (in the line [13]) and again by 5 (in line [15]), 


so that the groups are separated. 


The indices of the lines which a block must occupy are calculated in [11]. 
These are indices which start at the bottom of the matrix R and are of the 
height of the block, i.e ltoBLOCK 


Two loops (9 and 16] and [10 and 14] cause CO and LI to vary by 1 to RHO{2) 
or RHO[l]. 


The function is shown in detail on the following page. 


(1) 
12) 
131 
14] 
15} 
(6l 
(7) 
[8] 
19) 
[10] 
nil 
[12] 
[13] 
24] 
as] 
(16) 
117) 
118] 
119] 
120] 
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H ReMULTIBLO MAT ;CAR; TOP; RHO; INDCO; CO; L1; INDLI;BLOCK;ECHY 
PREPARATION OF DATA 

p" + ND *Io/-vxa* 

TOP + T/,MAT 

RHO + pMAT 

R + (TOP , ~3+RHO[2}x5+4xRHO[1))p' * 

A WRITING THE BLOCKS IN R 

INDICO e 16 

COc-1 

WEXTCO: LI + 1 

NEXTLI: BLOCK + (MAT(LI;CO],6)pCAR[1+101£I-1) 

INDLI + 1+TOP-11+pBLOCK 

R(NDLI;INDCO] + BLOCK 

INDCO + INDCO+4 

+ (RHO [3] 2LT-LI e1) /VEXTLI 

INDCO + INDCO«5 

UO [2] 2CO+CO+1) /NEXTCO 
WRITING THE SCALES 

A + (((TOP,2)p" '),R), [1]"=" 

ECHY<(3 VERT bıTOP),' ',{1.5) 6TOPo' ML 1-" 

R + (CHY,U])* Ing 

v 


The last step consists of placing the scales. Two blank columns border R 
on the left and a horizontal dotted line is plotted below [18] 


We have used the VERT function to constitute the vertical scale by means 
of \T0P reversed. 


The final rosult is emitted as the function resuit. This is not a widespread 
practice in graph plotting but it offers the advantage of returning a 
characters array to the user which he can centre, or supplement with 
additional references. 


IN THE TIME OF THE PYRAMIDS 


PREAMBLE 


All the dates must be expressed in a common unit. The number of months 
elapsed from a fixed origin is established. 

Working for example, on recruitment dates, three methods yield the same 
result: 


a) ES(;1] + 12 x ESI:21 
b) ES(;1 2] +.x 112 which amounts to the same thing 
c) 1 12 4 d £S[;1 2) 


The third solution is decoding, similar to the expression which enables an hour 
to be converted into seconds: 24 60 60 1 HOUR 


The second and the third methods are 2 and 3 times slower than the first 
respectively. It is therefore this one which we will retain. 


The function PREPARE will carry out these preliminary calculations, and 
will leave two global variables in the workspace: RECRUIT and LEAVE: 


V PREPARE 
i1] RECRUIT + ES(;1) + 12XESU;21 
[2] LEAVE + ES(;3] + 12xES(54] 
v 


FIRST STEP 


1f we undertake a check at a given date, it is advisable to express it in 
months for the same reason as the others [1]. 


The people answering two conditions are present on this date: 


- recruitment before the given date, 


- AND departure after the given date. In the expression of the latter 
condition, people still present must not be forgotten (LEAVE=0) 


V R«CUT DATE ;PRESEWT 
[1] DATE + DATE|1] + i2xDATE(2] 
12] PRESENT + (RECRIUTSDATE)A LLEAVE»DATE)V (LEAVE=0) 
Q3). B+ L (ATE-PRESENT/RECRUIT) +12 
(4) R= +/SCOPE o.= R 
[5] R< R/R 
v 


-128- 


The length of service on months, is the difference between the check date and 
the recruitment date, only for those present, of course. But to express it 
in whole years, we must devide by 12 and round down [3]. 


Hence R is the vector of the years of service of all the employees present 
at the check date. 


We have assumed, in [4], that the global variable SCOPE contained the scope 
of variation observed. In the present case: the whole numbers from 0 to 20. 
Distribution by groups is thus obtained by a classical outer product e.- 


It remains only to catenate R with its total [5]. 


SECOND STEP 


As stipulated, we start by converting the data [1]. Hence it suffices to execute 
CUT by means of a loop for the month of December of the n prescribed years. 
We thus obtain n vectors, which we can: 

- either join one under another into a matrix by catenation, 


- or arrange in the n lines of a pre-defined matrix, the 
solution which has been retained here, in line [4]. 
Since, the scope of the work is written in the argument, the 
matrix will have the dimensions: 
eDATES lines (one per year), 
1+pSCOPE columns (because of the cumulation per year) 


V SCOPE PYRAMIDS DATES ;RECRUIT;LEAVE;I;R 


[1] PREPARE 
I2) R< ((pDATES) ,1*0S8COPE)pO 
(3) Iel 


14) LO: R[I;) + CUT 12,DATES|T) 
[5] | +((pDATES) 51-141) /LO. 


[6) 

U] — (40* "), 4 OF SCOPE 
Is) 

[9] 4 0 © DATES,R 


v 


Instructions [6 to 9] are included to give a suitable presentation to the result 


FLASH 


FIRST PART 


We define an array by its header and the rest of the lines to be printed. 


1 - The header is collected by instructions {1 and 2] based on the 
"bare out-put" technique (see course page 107). 
A test serves to check that this header does not exceed 30 characters. 
Otherwise a message is printed and we start again [3]. 


2 - The line numbers are collected by instructions [4] and (5]. Instructions 
[6] and [7] serve to check that the codes introduced indeed feature 
in the vector CODES (line [6]). In the event of error, abnormal codes 
are printed (7]. We check also that not more than 30 values have been 
introduced [8 and 9]. 


1f those conditions are fulfilled, the information collected is calibrated 
to 30 elements by t and catenated to HEAD*EST and CODREST respectively. Hence 
we display the number of the defined array. 


we could have provided a loop in order to define several arrays in series. 


V DEFREST ;H;LI;BIH;DIM 
[1] ZLO: Ge 'ARRAY HEADER . 
[2] *GO0z07-2048 ) /L1 
(3) L0 AFTER TOO LOWG' 
(4] Li: 'LINES TO BE PRINTED' 
5) Ze 
[6]  *(A/BIN-LIcO,CODES) /L2 
[7] >El AFTER 'ABNORMAL CODES : ',  (~BIN)/LI 
181 L2: *(3O2pLI)/L3 
19] «Li AFTER '30 LINES MAXIMUM PLEASE! 
(20) L3: CODREST+CODREST, (1] 30+L1 
[L1] DIM-l*oHEADRESTe-HEADREST,(1] 3017 
[12] 'THIS ARRAY WILL BEAR THE NUMBER ‘,*DIM 
v 


the function uses the slave function AFTER to print the error messages. 
Note, in line [5], the ravelling of the values entered on the keyboard, 1f 
we do not take this precaution, testing line [8] would not work, in the case 
where we were tó introduce only one number (scalar). 


SECOND PART 


The list of defined arrays is obtained by simply displaying HEADRSS1, bordered 
by a series of whole numbers. The function VERT enables these numbers 
to be arranged in a column: 
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V ARRAYS ;NUM 
n1 NUM-2 VERT il*pHEADREST 


[2) — NUM, (CoNUM)o*. '), HEADREST 
v 


THIRD PART 


The number of the array to be printed is given as argument; in [1 and 2] we check 
that it is there. 

Then, having extracted the corresponding line of CODREST, the zeros on the 

right have to be eliminated. Now, we know how to eliminate zeros on the 

left by means of a scan (see course, bottom of page 113). Hence, we will 

tackle this familiar problem (don't smile!) by a double reversal [3-4]. 

After this, only the codes of the useful lines are left in LI, separated by 

zeros 


V PRIREST NUM ;LI;POS;BIN;R 
(1) >(NUMe 11 tp HEADREST) /LO 
{2] +0 AFTER ‘ABNORMAL ARRAY NUMBER! 
[3] ZO: LI+$CODREST (NUM; | 
[4] LEO(V\O4LI)/£5 
I5) — LF-(GIN-LISO)/LI 
[6] | POS-CODESiLI 


vot 
[8] HEADREST (NUM;], 13 0 3 0 5 o UTS [3 2 1] 
[9] 51p*-" 

[I0] '* 


[L1] Re(2 VERT LI),' ',(POSTS[POS;]), 6 O # RESULTS IPOS;| 
2] BIW\(1iR 
v 


In [5] we eliminate these zeros so as to look for the indices of the lines to 


be printed in [6] (POS). 
This set of indices serves to print side by side, in [1l]: 


- the codes, placed vertically by the utilisation function 
VERT, 
- the associated labels: POSTS[POS;] 
- the corresponding results. 
The binary vector BIN calculated in [5] provides for the expansion necessary for 


insertion of blank lines to be undertaken at the positions of the zeros in the 
given model. 


Lines [8 to 10] serve to present the header. 


This is actually very simple; make sure you use it for all your restitution 
problems. 


WEEK-END SAILING AT BRIGHTON 


DATA STRUCTURE; INITIALISING 


The information necessary for this work is already partly known: 


- OUTNAMES matrix of outings names, with 30 columns, 

- OUTPRICES vector of participating prices for these outings 
- OUTCODES vector of numbers assigned to the outings, 

- PERREGS vector of employees registrations, 

- PERWAMES matrix of their names (12 columns), 


We then complete the 5 following vectors for each registration: 


- INSREG vector of employees registered, in the order of 
registration, 

- INSOUT numbers of the outings requested by each one, 

- INSHB number of people registered, 

- INSCASH total instalments paid, 

- INSOWE total still owing. 


For example: 


INSREG 115 241 122 245 115 122 122 etc ... 
INSOUT 6 6 7 3 8 6 8 
INSNB 2 1 3 2 1 H 3 
INSCASH 1000 200 1500 500 600 750 500 
INSOWE 500 550 o 500 o O 1300 


It can be clearly seen that the same employee appears as many times as he has 
requested outings. These vectors contain in another form, the information 
which the function STATE will print. 

A simple function will serve to initialise all these variables, except those 
concerning the personnel: 


V INIOUT 
n] OQUTNAMES«-O 30p'" 
[2] OUTPRICES*OUTCODES*INSRE G+ INSOUT--INSNB- INSCASHeINSOWE«10 
(31 ENDe-*1 


v 
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The global variable EVD will be used for tests to bring out the functions. 


ORGANISING AN OUTING 


This is a very simple function. We introduce the outing description and the 
individual participation price successively. These two pieces of information 
are catenated to the appropriate data, 


Since the vector OUTCODES contains the numbers in increasing order, the number 
attributed to the last outing created is obtained by -1*0UTCODES. It is 
better to avoid l/0UTCODES because reduction by the maximum of an empty vector 
gives an enormous number. This exceptional case will arise on entering the 
first outing, since OUTCODES has been initialised by an empty vector. 


V PLAN ;NUM 
QU] — ‘OUTING DESCRIPTION ?' 
I2] — OUTNAMES«-OUTIAMES , (113012 
[3] ‘INDIVIDUAL DONATION ?' 
[4] — QUTPRICES-OUTPRICES, ll 
[S] — NUM-le ~1s0UTCODES 


[61 '--- THIS OUTING WILL BEAR CODE', NUM 
7] OUTCODES+OUTCODES, NUM 
[8] SAVEWS 

v 


At the end of the work, the funciton SAVEWS serves automatically to safeguard 
the workspace. 

Achieving such a function depends greatly on the APL system used. On other 
systems, it suffices to write DSAVE; on others one can write a')SAVE'; 

on VS-APL systems offered by IBM, one must use the STACK auxiliary processor 
(see course, page 309), as follows: 


v SAVEWS; STACK 
(1) +(2¥101 OSVO 'STACK')/AN 
[21 STACKe' ) SAVE" 
BI 40 
[4] AN: "101 PROCESSOR IN THE ROADS! 
V 


Of gourse this step is not essential to the working of programs, but it 
provides automatic safeguarding of the information entered. We would obtain 
an equivalent level of security by working on a file. 
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REGISTRATIONS AND INSTALMENTS 


For registrations input, two loops are imbricated. They enable several outings 
to be surveyed, and several employees to be registered for each one. 


First of all we introduce the outing code [1 to 3]; if we type END the program 
finishes by a safeguard [15]. If not, we look for the index FOS of this 

outing in the list of outings. If POS is greater than the outing number, it is 
because the code OUT is incorrect and the jump [5] returns to the question: 


V INSCRIPTIONS ;OUT;POS;REP;NB;TO;PI;REG;LO 
[$5] LO: ** 
121 'QUTING CODE* 
[3]. *(GND-QUT-U ) /LEAVE 
[4] POS*OUTCODES OUT 
15] +(POS>pOUTCODES) /LO 
(6) Ll: "REGISTRATION, NUMBER OF PARTICIPANTS" 
[7) NB+(REP+2+D ) [2] 
{8] > (END-MATT-REP {1])/LO 
[91 (MAT € PERREGS) /LY 
(10) "DONATION : ', MD«NBXOUTPRICES|POS) 
(11) 'FIRST INSTALMENT* 


na] Pv 

[13] CONSERVE 

[14] 7L1l 

[15] LEAVE: SAVEWS 
v 


In [6 to 9] we enter the registration and number of participants into REP, 
NB will receive the number of participants and REG will receive the employees 
registration, 

When we type END, it is to conclude the registration for this outing. 

The jump [8] thus moves to the next outing. 


In [10] we display the participation price, which is the product of the number 


of participants and the price of the outing requested. Thus we can enquire 
what the employees first instalment will be and proceed to the following employee 
by means of the jump [14]. 


The slave function CONSERVE serves to ventilate the information induced in the 
various global variables. 


If we wish to display the outing name, as in the example, we must insert 
an instruction: 


[5.5] OUTNAMES (POS; ) 
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V CONSERVE 
[1] INSREG + INSREG,REG 
i2) INSOUT <+ INSOUT,OUT 
[3] INSNB + INSNB,NB 
[4] INSCASH + INSCASH,FI 
(5) INSOWE + INSOWE,TO-FI 


This is not an inteliectualy fantastic function, but it is useful. 


For input of further instalments, a loop enables pairs of registration-outing 
numbers [l to 3) to be entered. The value END, when detected in [3], proceeds 
to the safeguard instruction in [13]. 


V INSTALMENT ;OUT;CACHE;POS; I; REP 
ü] Z0: '* 
[2] "REGISTRATION, OUTING' 
[3] -(EWD € REPe2t0) /LEAVE 
[4] CACHE«INSREG-REP[1] 
15] QUT-REP(2] 
[6] +(OUT CACHE/INSOUT)/ Lo 
(7) | POS- ( (OUL=INSOUT)ACACHE) / xp INSREU 
18] ‘ALREADY PAID : ', (WINSCASHIPOS], ' , STILL OWING : ',€INSOWElPOS| 
[9] "INSTALMENT" 
(10) INSCASH {POS)«INSCASH [POS] +V-0 
[11] INSOWE [POS]+INSOWE (POS -V 
(12) »LO 
[13] LEAVE:SAVEWS 
v 


In [4] we look for every appearance of the employee in the vector INSREG; 

we obtain a binary vector called CACHE, It can only contain zeros if there 

has been a registration error, or if the registration is correct, but this 
employee has not requested an outing. Hence it remains to be seen, in [5 

and 6], if the outing number introduced features in the list of outings requested 
by this employee. If this is not the case, the jump returns to the 

question LO, 


If everything is correct, the term OUT-INSOUT AND the term CACHE (i.e. INSREG= 
REP[1]) enables the position POS of this registration to be found in the vectors 


INS... 


It is quite easy to print the total already paid, and the amount still owing 
[8]. The instalment introduced in line [10] must be added to INSCASH 

and subtracted from INSOWE before restarting with the initial question by 
means of the jump [12]. 
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READ BACK 


We can explore the outings one after the other by a loop and calculate the 
total amounts paid, total amounts owing, etc ... This would require the same 
calculations to be repeated several times. 


Furthermore, we are in good company and can skip a loop! 


We start by arranging the vector INSOUT in increasing order of outing numbers. 
The result is called JO. In (2] we compare each term of JO with the 
following, which enables series of identical values to be detected. In (3], 
we deduce the position of the last value of each series. 

For example: 


if IO is the vector O 3. :509:8.-«8: 45-76o 8) B 8 
IO # 1410,0willequl  ; O 1 0 0 0 1 1 0 0 ! 
and POS will be equal to : 2 6 7 10 
if INSCASH[INO] equals +: 50 40 90 30 20 60 60 40 20 50 
(*NIC) [POS] will give : 90 290 350 460 
By shifting and subtracting we obtain: 90 200 60 110 i.e. the totals 


perceived by each outing. 
These manipulations are represented by instructions [2 to 7]. 
The same operation is undertaken in [9] for the numbers of participants. 


Y TRIPS ;10; IC; INO;POS;NB;BUD;PP; TEXT; BIN 
Hj — IO-INSOUT INO-AINSOUT] 
[21 BIN«IOg1v«10,0 
[3] POS- BIN/ioBIN 
[4] IC«+\INSCASH LINO} 
[5]  IO«IO (POS) 
[6] — IC<IC{POS] 
DU) — IC-IC-0,14IC 
(8)  NB«(+\INSB(ZNO1) (POS) 
[9] WB+WB-0,7140B 
[10] — BUD-IBXPP«-OUTPRICES [OUTCODES\IO;) 
i1] — TEXT-(((910),2)0* ') ,OUTNAMES [OUTCODES1I0;] 
r 


02] 

[13] "CODE OUTING PRICE PART BUDGET RECEIVED" 
(14] ie 

(151 (3 VERT IO), TEXT,5 0 5 0 8 0 80 *PP ,NB ,BUD, (1.5]1IC 


y 


With OUTCODES\IO giving the indices of the outings, we can calculate the 
budget of each outing in [10 and l1] and extract its name. 
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1t remains only to print the extracted valuos [15]. 

The vector of the outing numbers will be printed vertically by means of 
the VERT function written at the beginning of this work. The four 
vectors PP, NB, BUD and IC are joined into a matrix which is presented 
by means of a single FORMAT. 

Note that a lamination is used to join BUD and IC; afterwards simple 
catenations suffice to join NB then PP. 


The state of the individual instalments is fairly easy to obtain, since 
all the information is contained in the INS se, Vectors, 


V STATE ; WHO; INO; INFOS; BIN; TEXT 

[1]  MJO-INSREG[INO-AINSREG] 

[2] — INFOS-(INSOUT,INSNB,O,INSCASH, [1.5] INSOWE) LIUD; ) 
[3]  INFOS[;3]++/INFOS[; 4.5] 

[4] BIH-WEOs0, «WHO 

[5]  TEXT-(3 VERT WHO),' ',PERNAMES IPERREGS WHO; | 


tei $t 
(71 ‘REG NAME OUT INS TOTAL RECEIVED OWES* 
(8) ga 
[91 GINNDIBIN/U]TEXT), 8 0 * INFOS 
v 


Succesive grading arranges the registrations of the participants, so 
as to regroup all the requests of one and the same employee [1]. 


By the same method as above, we join all the INS.... vectors into 

a matrix, which we classify in the same order as the registrations 
[2]. A colum of zeros has been included; here we insert, in line [3] 
the total amounts already paid and still owing. 


In TEXT we prepare the registrations and names of the employees (which 
are thus repeated as many times as there are outings per employee). 


In order to avoid such repetitions, BIN reccives the positions of the first 
appearances of a name. The technique used is the same as for IV on the 
preceding page. This binary vector enables a TEX? COMPRESSION to be 
undertaken so that each name is retainod only once, and immediately afterwards 
an EXPANSION to provide blank lines [9]. 


This technique, which consists of looking for blanks, then using the sane 
binary vector to carry out a compression and an expansion, is quite 
conventional. It can be used for the topic "Good print 


In order to print tne participants, a loop is strongly advised. Each outing 
code is extracted [2] and placed in the variable V. PART receives the 
registration entered for this outing by means of a compression [3]. 
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If there are no participants, the test on pPART passes to the next 
outing [4]. 


V PARTICIPANTS 3V;PART; POS; WHO3 OUT; T; CACHE; DIM 
n) rad 
(2] L0: V+OUTCODES |I] 
[3] PART-(CACHE-INSOUT-V) /INSREG 
[4] +(0=pPART)/L1 
[5) POS«PERREGSVPART 
i6] WHO-PERNAMES|POS;) , 2 VERT CACHE/INXNB 
[7] WHO«( (3x0 (pPART) $3) ,16) WHO 
(8) DIM-(ltgWHO):3 
(9] WHO« (DIM, 48) pWHO 
[10] OUT+(DIM,30)+ 1 30 pOUTNAMES II; ] 
ni] *' 
[12] OUT, WHO 
[13] Zl: +({pOUTCODES) 2T<f+1) /LO 
v 


We calculate the indices of the participants" registrations by means 

of the INDEX-OF function [5], which enables the coresponding names 

to be extracted in [6]. We immediately join the numbers of participants 
to them. 


In order to place three participants per line, the number of participants 
per employee must be a multiple of 3. Instruction [7] consists 


precisely of supplementing this list by blanks if necessary, by means 
of the TAKE function. We can thus re-shape the matrix obtained into 
a matrix which has one third the number of lines but three times more 


columns [8 and 9]. 


To print the outing name and the list of participants side by side we must 
see that these arrays have the same number of lines, whence instruction 
[10]. 


A ioop explores all the outings one by one [13]. 


CONCLUDING AN OUTING 


V ERASEOUT ;0UT; CACHE 
11] LO: 'WHICH OUTING ?' 
[2]. +(~(0UuT<O )eOUTCODES) /Lo 
[3] CACHE-INSOUT-OUT 
[4j] +(OA,= CACHE/INSOWE) /OK 
[5] +0 AFTER "UNSETTLED DONATIONS' 
16) OK: PURGEOUT 
[7] SAVEWS 
[8] 'IT''S DONE" 
v 
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A first test [2] provides for the incorrect codes to be detected, and 
return to the question [1]. 


A binary cache calculated in [3] enables the amounts still owing by the 
participants in this outing to be extracted [4]. It will be erased only 
if all these amounts equal zero. 

We could write: 


^/ O-CACHE/INSOWE 


An inner product also undertakes this: 
O ^.» CACHE/INSOWE 


According to the result of this test, we either leave the function after 
having printed a message [5], or we jump to [6] where the function 
PURGEOUT takes control of updating the various variables. 

A safeguard immediately follows: 


V PURGEOUT 
1] CACHEeCACHE 
[2] INSREG « CACHE/INSREG 
[3] INSOUT + CACHE/INSOUT 
[4] INSHB + CACHE/INSNB 
[5) INSCASHe- CACHE/INSCASH 
[e] INSOWE + CACHE/INSOWE 
[7] CACHE OUTCODESZOUT 
[8] OUTCODES-CACHE/OUTCODES. 
[9] OUTWAMES<CACHE/ [1] OUTVAMES. 
(10] OUTPRICES«-CACHE/OUTPRICES 
v 


A series of compressions updates the variables by means of two successive 
binary caches. 


Still many more functions would be needed to complete this skeleton, 
to update the data concerning personnel, to modify the number of 
people registered by an employee, etc ... 


CAN YOU UPDATE 


First of all we must understand that the data we have do not give an 
exact picture of the life of the company, since the people engaged during 
the year and who left before the end of the year do not appear in the 
given vectors. 


Having made this comment, the work is divided into two parts: calculating 
the updating matrix then the array of man-power transfer. 


UPDATING MATRIX 


The UPDATE function performs this task. 


We first look for the position of REGl registration in REG2. For 
employees still present we obtain a normal value. For employees who 
have left, we obtain 1+pREG2 or again 1+pCAT2 (line [1]). 


We obtain the new category of employees by CAT2[POS]. However, owing 
to the employees who left, we have written (CAT2,0) [POS] so as to obtain 
the value O for the people who have left [2]. 


HIN must enable us to detect engagements. We give it the dimensions of the 
size of REG2 plus one [3]. The POS indices indicates the people 

who were present last year. These are not engagements, and we place 

a zero in BIN[POS) (iine [4]). It is quite easy from this to deduce 

the categories of people engaged [5]. 


V ReUPDATE ;POS; NEWCAT; BIN; ENGAGEMENTS; INICAT; FINCAT 
(1) POS-REG2iRECl 
(21. NEWCAT=® (CAT2,0) [POS] 
(3) BIN-(I*0REG2)p1 
[4] BIN(POS]-O 
[5] ENGAGEMENTS-BIN/CAT2,0 
[6] INICAT-CAT1, (pENGAGEMENTS) pO 
[7] FINCAT-NEWCAT, ENGAGEMENTS 
[8] ReINICAT CROSSCOUNT FINCAT 
v 


In order to calculate the transfers, each person must have an initial 
category (IWICAT) and a final category (FINCAT). For people engaged, 
we will place their initial category at zero [6]; for people who have 
left, NEWCAT already contains zeros by way of the final category, but 
the people engaged must be integrated [7]. 


Two vectors are thus obtained, I/ICAT and FINCAT, of the same length, 
which we can submit to an auxiliary function CROSSCOUNT, so as to 
calculate the transfer matrix. 
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THE CROSSCOUNT FUNCTION 


There are several ways of writing the CROSSCOUNT function. Were is one 
of them, directly inspired by the crossed numbering functions which are 
the subject of the topic "Crossed numbering". Consult the corresponding 
solutions. 


V BeA CROSSCOUNT B ;B BINV;BINH 
I1) BINV + (0,CATEGORIES)°.=A 
(2] BINH + Be.=(CATEGORIES, 0) 
[I3]. R + BINV +.^ BINH 

v 


CATEGORIES is a global variable which contains the different values 
which the category can take. 


Here is a more traditional method: 


V AeA CROSSCOUNT B ;I 
[1] R+ (201*pCATEGORIES)pO 
[2] A + (0,CATEGORZES) 14 
[3] B + (CATEGORIES,0)13 
[4] Iel 
15) LO: R(ALI] ; BL71] + 1eRIALI] ; BIT) 
[6] -*((04)2I- I+1)/LO 
v 


Here is a third method which, before consituting the final matrix, consists 
of counting the people who have had the same type of development. 
during the year: 


V ReA CROSSCOUNT B; DEV; BIN; TOT; POS; VEC; DIM 
(] DEVel*(DIM-1eo CATEGORIES) 4A , (0.518 
[2] DEV-DEV|ADEV) 
3) BIRCDEVZ14D8V,0 
[4] TOT-BIN/AoBIN 
[5] T0T+TOT-0,~1+TOT 
[6] POS«-BIN/DEV 
(7) VECe (CDIMxDIM)pO 
18]  VEC[POS]-7OT 
[9] F-10(DIM,DIM)oVEC 
v 


This method does not require as much space as the first (no outer product) 
and is much quicker than the second (no loop). The development of a 
person is shown by a whole number [1-2]. When looking for value changes 
[3], we find the number of people who have had a given development [4-5]. 
It suffices to place these values in a vector which is the image of the 
desired result ravelled. This is why the calculation of DEV is undertaken 
in such a way as to directly give the index of development of employees 

in this vector VEC. 


These three, very different solutions, clearly demonstrate the richness of 
APL, The first is elegance itself, but the last is less greedy 
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SECOND STEP 


With the updating matrix already known, the CALTRANS function serves to 
calculate the array of man-power transfers. It has 8 lines, and as many 
columns as categories (the total will be added in line [9]). The TRANSFERS 
function serves only to link the two sub-functions, and to present the 
results correctly: 


V TRANSFERS ;STATE 
(1) "UPDATING MATRIX" 
B5 B eszareeupoare 
Bi “ARRAY OF MAN-POWER TRANSPERS* 
7 (164 CATEGORIES, 4 0 WATEGORIES 
i T0 1370 3 EE OMNIA TENTS, 4:0 CALTRANS 


TEXT is a characters matrix containing the lables of the final array. 


THE CALTRANS FUNCTION 


V ReCALTRANS ;CACHE 
[1] Re(8,pCATEGORIES)p+/ 1 0 4STATE 
(2) RD? L9STATED0 ; ] 
[3]. R[6; 1-14, STATE [; ep CATEGORIES] 
[4] CACHE+0,(1] (CATEGORIESe,«CATEGORIES),0 
[5] R[2;]e-1« */[1] STATEXxCACHE 
[6) R[S;]- lv +/[2] STATExCACHE 
[7]. RIA 7;]*R[2 5; J4R(3 6;] 
[8] Ri8;le- +/{1] STATE [;10CATEGORIES] 
[9] ReR,+/R 

v 


The first line must contain the initial man-power. This is the total 
of the values featuring in the lines corresponding to each category [1l]. 
The final man-power is the total of the columns (instruction (8]). 


The engagements are indicated directly by the first line of the STATE array, 
last element excluded. In the same way, permanent departures are obtained 
by the last column of the STATE array, first element excluded. This 
clarifies instructions [2 and 3]. 


A binary matrix called CACHE serves to extract the grater right hand 
part of the array, which contains the category changes [4]. Entries by 
Promotion are obtained by adding this extract vertically [5], the outgoings 
by promotion are obtained by the horizontal sum in instruction [6]. 


Instruction [7] calculates the total arrivals and departures. 


SPECIAL PRINTING 


GENERAL PRINCIPLES 


The final read back will be formed by successive catenations of the 


colunns representing each datum, These columns will be separated from 
one another by the three characters '|'. ‘This is the role of the matrix 


SEP, 
The header and the horizontal dotted line on the bottom are added last. 


TABLES 
In order to print the data conveniently, we must know: 


1 - the manner of selecting the information concerning a list of 
individuals, referenced by their numbers NOS: 
- indexing by [OS] for the vectors such as UGE or SEX), 


- indexing by [NOS] for the matrices (such as name). 
2 - the printing format of these data: 


- a characters matrix does not require treatment, 


~ a numeric matrix must be transformed into a vertical characters 
matrix by means of the VERT function, 


- a character vector must be written verticàlly, which is 
performed automatically by catenating to SEP. 


All this information could be catenated automatically but repetition 

of these calculations at each printing would be costly and would burden 
the functions. We have preferred to use a table of formats, TAFOR, 
constituted manually or calculated once for all of them by a preliminary 
function. 


NAME 1408;] 
2 VERT AGE UOS] 
SEX UOS) 


2 VERT DEPT (NOS) 
MARSTA (HOS) 
3 VERT REG Los) 


TAFOR is a matrix of 6 lines and 20 columns, Columns 9 to 14 are reserved 
for the names of the variables. 


It would be very difficult to constitute the headers automatically. 
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We have constituted a table of headers concerning each item. This table 
is called TAHED. It has 6 lines and 20 columns. Each header is 

bound there by the symbol |. Of course, there must be parity between 
the resulting width of the format of a zone and the width of its header. 
Here are the contents of TAHED: 


NAHE l 
AGE | 
SEX! 
DEPT! 
M.S. 1 
REG | 


THE PRINT-OUT FUNCTION 


V RePRINT-OUT NOS ;SEP;2;I 
[L] «NOBODY CORRESPONDS TO THIS DEFINITION' 
(2) +(0=p¥0S+,NOS)/0 


13]. SEP+((p¥0S),3)p * | * 
[4] R+ 0 1 + SEP 
Bi Ztl 


fe] Lo: 2 + ZONES{I] 

17] R + R, (@TAPOR(Z;)) SEP 

[8] —((oZONES)2 + 41)/LO 

I9] R + HEADER, (1] (O -1 + R), i1] JEADER(3:] 
v 


Instructions [l to 3j are clear. In [4] we initialise the result by a 
column of vertical dashes bordered by a blank column. 


We then explore the zones one after another [6] and we execute the 
corresponding line of TAFOR. The result of this is a matrix of characters 
which represents the corresponding information. We catenate it to R, 

and follow it by the matrix SEP to terminate the column (instruction [7]). 


When all the zones to be printed have been explored [8], it remains only 
to remove the last blank column left by SEP from R, to cap the result 
by HEADER, and to conclude at the bottom by HEADER [3;]. 


Wasn't that easy? 


ZONES and HEADER are elaborated by the functions DEFZONES and DEFHEADER 
respectively, called by the function CHARACTER. The latter is quite clear. 


V CHARACETR 
i) DEFZONES 
[2] DEFHEADER 
I3) '" 
[4] '----» IT'S DONE." 
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THE DEFZONES FUNCTION 


v DEFZONES ;Z0NB: VARS 

(1] Lo: li «251'DATA TO BE PRINTED . H 

[2] 20 « 2540 

[3] VARS + 6 Op'' 

[4] L1: 20 + w\Z0¢" ')/20 

[5] WB «+ 71420." ' 

[6] VARS + VARS,6+NB+Z0 

L7} +(0<p20e¥B420) /L1 

(8] ZONES + (i1 pTAFOR)+.TAFOR(;8+16]a-=VARS 

[9]. te 0eZONES) /0 

[10] «Lo AFTER 'UNKNOWN DATA : ',,&(ZONES=0) /VARS 
v 


Z0 is the vector typed by the user [1-2]. A loop enables the header 
blanks to be eliminated [4), the length NB of the first word to be 
found [5], and enables it to be catenated to a matrix VARS initialised 
in [3]. 
The operation is facilitated by the fact that the names of variables 
have 6 characters maximum. 
We obtain, for example, the matrix VARS as follows: REG 
NAME 
DEP (error!) 
AGE 


TAFOR[;8416] contains the names of the authorised variables. The classic 
inner product A.= gives one binary column per word typed. Multiplying 
matricially by 16 we obtain: 

6 102 


This result shows that the word DEP is unknown, whereas REG, NAME and AGE are 
zones 6, l and 2 respectively. 

Instructions [9 and 10] serve to attract attention to the unknown words. 

The function leaves the global variable ZONES in the workspace. 


THE DEFHEADER FUNCTION 


V DEFHEADER ;BIN;POS 
[1] HEADER + TAHED|ZONES;] 
[2] BIN + , ÓVNbREADER-! | ' 
[31 HEADER + '|', BIN/,HEADER 
[4] POS + (HEADER-!|* ) /ApHEADER 
[5] HEADER + ' ',il] HEADER, [0.5] '.' 
[6] HEADER[;POS) + 'l" 
v 


We start by extracting the lines of TAHED corresponding to the zeros to be 
printed [1]. 
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In order to eliminate surplus blanks, we turn the table and apply the 
method shown in paragraph 5-2 of the course, page 113. Ravelling the 
result gives a binary vector which serves to compress the vector, HEADER 
(instruction [3]). 


It suffices therefore to transform HEADER into a matrix by lamination 
with an underline of dashes, then to add an overline of dashes by 
catenation [5]. 


Instructions [4] and [6] enable the vertical dotted lines | to be 
extended from top to bottom. 


The selection and classification functions were shown in detail in the 
Course, pages 361 to 363. 


It is seen that the functions required are relatively short and simple. 
They are very general and can come to the rescue in many everyday situations 
They are, moreover, pleasant to use even by people knowing nothing about 
data processing. 


AHEAD OF THE CLIENT 


DATA STRUCTURE 


The structure adopted for the data is justified by considerations of 
ease of use and security. 


DATA DIMENSIONING 


Most users dimension their data to the minimum required. For example 

in order to contain the 13 clients of our diagram, they would use vectors 
of 13 elements, which they would enlarge afterwards by means of successive 
catenations. This is a saving which appears greater than it actually 

is and in fact it leads to a lot of waste and difficulty. 


- Apparent saving only, since some day the size of these data 
will have to be increased, to meet the arrival of new clients. 
At final reckoning, we will not have saved anything. Why 
not reserve sufficiant space, in one go, to accommodate 
expansions foreseeable in the short term? 


- Waste and difficulties, because if a client leaves, his 
place will have to be recuperated at the price of 
logical compressions, of compacting files, all VERY costly 
operations. 


Onthe other hand, the structure adopted enables a new client to be inserted 
by simply indexing (a simple and cheap operation), and a client to be 


erased simply by placing a zero in a bhary vector. Try it. It is much 
more economical. 


PROCESSING SECURITY 


We will imagine that a new client arrives. The various data concerning 
him must be updated. Tf an incident interrupts the course of this 
updating, certain data will contain only 13 of them. In data processing, 
such a situation is always very uncomfortable. 


With the structure adopted here, we will update BINCLI at last. If one 
position of BINCLI equals l, we are assured that all the information 
concerning this client has been introduced. If it equals zero, the 
corresponding space will be deemed empty, even if updating has been 
started. A client is thus introduced totally, or not at all. He can 
never be half way. 


It is certainly the most reliable structure in the event of an incident. 
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FIRST STEP 


THE INTROCLI FUNCTION 


CLI is the highest code at the moment [1]; we will increase it at each 
introduction of a new client [3]. WB, length of the vector CLICO will 
be used by the function GETINA. 


The slave function GETADD reinstates in AD an address of 120 characters, 
or an empty vector [4]. If this address is empty [5], we disconnect in 
i13], at the end of the processing. We would normally find a safeguarding 
process on file there, which was not requested here. 


The function STORE places this address in the first empty line of ADDRESSES, 
andreinstates the index of this line. This index represents the position 
of the client in the data (POCLI), and will be taken temporarily as the 
invoicing address (POINV), for the case where the two addresses would be 
identical. 

The client code is placed in this position (7]. 


V INTROCLI ;CLI;AD;POCLI;POIIV;BG;!B; IGURES 
ul CLI-L/CLICO 
i2]  NBepCLICO 
[3] NEXT: [17C[3],'----» INTRODUCTION OF CLIENT ',¥CLIeCLI+1 
[4] — AD«GETADD "DELIVERY ' 
[5) ^ +(O=pAD) /EXIT 
[6]  POCLI-POINV- 0 STORE AD 
(7) — CLICO[POCLI]-CLI 
(8) — GETGROUP/TAIL 
[9] CETINA 
[10) TAIL: INVADIPOCLI)-POINV 
[11] BINCLI {POCLI,POINV|+ 1 
(12] — -WEXT 
O3] EXIT: '----» END' 
v 


In line [8], the result of the function GETGROUP according to the case 
enables a jump to [10], or the invoicing address to be requested, by means 
of the GETINA function; instruction [9]. 


GETGROUP ox GETINA having possibly modified the pointer POINV, we can place 
it in position POCLI of the INVAD vector; instruction [10]. 


The client is completely introduced, we can update BINCLI and return 
to line [3]. 


Now we will study the slave functions. 
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THE GETGROUP FUNCTION 


This function serves to determine if the client belongs to a buying 
group. In order to be able to reply by a carriage-return, we must 
obligatorily use a ll and not a U (see course page 106). Here, we 
have used even the "bare-output" technique so that the answer is on 
the same line as the question (see course page 107). ‘his is the 
meaning of instructions [l to 3]. 


1f none of the characters typed is numeric, we leave the function, 
and R takes the value zero [4]. If not, these numeric characters are 
transformed into a scalar BG by the function’, whereas È keeps the 
value 1; instruction [5]. 


V ReGETGROUP ;BG; NUM 
a1 BUY: '" 
(2) Oe ' BUYING GROUP " 
13] NUM (BG-)e 10123456789* 
[41 > (Rev NUM) /0 
[5] BGe-& NUM/BG 
[31 c (BGACLI) /SEARCH 
[7] GROUPS [POCLI]<1 
[81 + O AFTER "GROUP RECORDED' 
I9] SEARCH: +(~3GeGROUPS/CLICO} /ERROR 
0]  POINV-CLICOiBG 


ni] + 
[12] ERROR: + BUY AFTER ‘THIS IS NOT A B.G. CODE' 
v 


If BG is identical with the client code, it is because one wished to 
create a buying group. We note it in the vector GROUPS, then we exit 
after confirmation [7 and 8]. 


If not, we ascertain whether the code typed is indeed that of a group 
already recorded. According to case, either we print an error message 
[12], or we note in POINV tne index of this group in CLICO; see [10]. 


THE GETINA FUNCTION 


V GETADD ;AD 
Qi) AD«GETADD 'INVOICING' 
[2] +(0=pAD) /0 
3 POINV-NB STORE AD 

v 


1f no address is introduced, we leave the function without processing [2]. 
1f not, we store this address in the first free space after the first 


NB's which are reserved for delivery addresses. We nóte in POINV 
at which index this address was placed. 
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THE GETADD FUNCTION 


Here again we have used the bare-output technique. The processing 
of the first line of address has been separated from the processing 
of the following three, so as to detect the possibility of an empty 


reply. 


V R«GETADD TEXT ;I 
n1 D 7C(3], 'ADDRESS OF',TEXT 


(2) Deep ' 

(3] +(0=pR+64+0 3/0 
[4] Rea0tr 

[5] Iel 


t6) Zo: fl«op' * 

{7] ReR, 3006400 

[8]  -+(32I«I+1)/L0 
v 


Remember that O7C[3] represents the line feed òn IBM systems. 


THE STORE FUNCTION 


V ReORIGIN STORE AD 
[1] ReORIGIN + (ORIGINĻBINCLI) 10 
[2] ADDRESSES [R; ]-AD 

v 


We first look for the position of the first zero of BINCLI after the 
given origin: 0 for delivery addresses, or NB for invoicing addresses. 
Having found this position, we place the address AD in the corresponding 
line of ADDRESSES. 


Each one of these functions plays a precise role. We thus end up with 
functions which are short, easy to modify and simple to read back. 
Some, such as GETADD, can be useful in other circumstances. 


Such an approach to the problems is infinitely preferable to the single 
function, instructed to de everything, which becomes illegible. 
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SECOND STEP 


The header of the print-outs is constituted by a global variable 
HEDCLI. 

After printing this header (6 and 7], lines [8 to ll] serve to print 
each client in succession. The slave function PRINTCLI carries out 
the presentation. 


y PRICLI ;SEP;OFT;DITTO;POCLI;NB;l 


HJ — SEPe 4 3 p'l' 
[2] — OFT« 73 30 4 1 21 p* =- GROUP -- 
[31 — DITTO« 4 30 t 1 21 p* SAME ADDRESS" 


(41 POCLI*((pCLICO) &BINCLI) /ApCLICO 
[5] NB«pPOCLI«POCLI |ÀCLICO(POCLI]] 


[6] 

U] REDCLI 
iB) Tea 
D] B: 


(10] PRINTCLI POCLI(I] 
n1] +(VB2IeI+1)/B 
v 


The existing clients are known by the l's of the first part of 

BINCLI. We therefore seek their positions (4), then arrange them 

in terms of their codes [5]. 

The numbers NB of clients serves, in line [11], to count the repetitions 
in the loop. 


Certain matrices of characters must be printed very often. It would 
be clumsy to create them in PRINTCLI, because they would be regenerated 
at each passage in this function. Hence it is better to create 

them in PRICLI. They then become global for PRINTCLI. 


These variables, SEP, OPT and DITTO are created in lines [1 to 3]. 


THE PRINTCLI FUNCTION 


V PRINTCLI POS iLINEiINA;INV 
n1 LINE+(* G'[1«GROUPS[POS])), 6 O * CLICOLPOS]) , (1] 3 7p" " 
[2] LINE LINE,SEP,(4 30 p ADDRESSES (POS;1) ,SEP 
13] INA+DITTO 
[41 IWV-INVAD(POS] 
[51 —UNA-POS)/EXIT 
{6} INAe- 4 30 o ADDRESSES (INA;1 
Ul -((GROUPS ,0) (INVL 1+pGROUPS]=0) /EXIT 
t8) INA[2 3 4 ;]-0FT 
[9] INÀ- 2 6 INA 
i10] EXIT: LINE,INA,SEP 
v 
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For each client, we join the following into a big matrix. 


- its client code, possibly preceded by the letter G if 
it concerns a buying group [1]. 


- its delivery address, separated from that which precedes 
it by the separator SEP; instruction [2]. 


- its invoicing address. Since it is often identical with 
the delivery address, we have placed a matrix DITTO, 
which contains the message "SAME ADDRESS" in the variable INA. 
This is instruction [3]. 
In INV we note the index of the invoicing address (4]. 
If it is effectively identical to the delivery address, 
we can disconnect in [10] for final printing. 


If, on the other hand, the two addresses are different, we 
start by extracting the invoicing address and structuring 
it into a matrix [6]. 

However, if the client belongs to a buying group, only 
the company name of the latter should be printed. To 
arrive at this, we quash lines 2, 3 and 4 of the address 
by the matrix OFT, which contains the message"-- GROUP 
(instruction ([8]). Hence a rotation gives the desired 
presentation [9]. 


In all cases, we end by putting the variable LINE, followed by the 
invoicing address, followed by the separator SEP, which terminates the 
presentation [10]. 


We will now return to instruction [7] which serves to determine whether 
the client belongs to a buying group. The expression GROUPS [INV] 
would be highly suitable, except for clients having their invoicing 
address outside the limits of GROUPS, whence the formulation adopted 
here. 


THIRD STEP 


An auxiliary function, GETCLI, enables a client to be serched for, 
displays thename and requests validation. 1t gives the index of this 
client as result (3]. 

If this client is not a group [4], it will be erased immediately by 
placing a zero in BINCLI at the positions of the delivery and invoicing 
addresses [12]. 


On the other hand, in the case of a buying group, we must look for 
the list of its members, called MB here. These members are the clients: 


- who have not yet left, i.e.: WBtBINCLI 


- whose invoicing address registers on the erased client, 
i.c.: LNVAD=POS 
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- finally, who are not the group itself: (1WB)#POS 


The combination of these conditions gives, in line [5], the binary 
vector BIN which enables the list of members to be known. 


We display these codes [6-7], then we calculate the positions of these 
clients in the file. This is POMB. Hence we must replace, in INVAD, 
the buying groups address by that of the clients, i.e. POMB precisely. 
This is what is done in line [9]. 


We must also place a zero in GROUPS[POS], because this position will 
be re-used by a new client one day [10]. 


V ERASECLI iCLI;POS;POMBiBIN;MB;NB;END 
[il ENDex) 
(2) NB-pCLICO 
(31 NEXT; +(0=POS+GETCLI) /0 
[4] > (GROUPS (POS) 20) /ERASE 
[51 Be (BIN (HB4BINCLI)A^(INVAD-POS) ^ (POS# AB) ) /CLICO 
[6] i 
t7) "THIS BUYING GROUP CONCERNS CLIENT :  ',9MB 
i81 POMB<BIN/ NB 
[EH INVAD|POMB] -POMB 
103 GROUPS [POS]+0 
nil ERASE: POINV -(INVAD|POS]»NB)/INVAD|[POS] 
[12] BINCLI (POS, POINV]+0 
(13) *----» CLIENT ERASED" 
[14] NEXT 
v 


N.B. c 


If we erase a member client of a buying group, we must take care not 
to place a zero against the invoicing address in BINCLI, because this 
results inerasing the address of the buying group. 


Also POINV is calculated only if it concerns an address beyond the first 
NB (11). 


THE GETCLI FUNCITON 


The function first extracts the list of clients still present [1], then 
requests the introduction of the code of a client [2]. 


If we answer END, we leave the function, which gives the result 0. 


If not, the function checks that the client exists in [4], absence of 
which causes an error message to be emitted [5]. 
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9 R-GETCLI ;BIN;CLI;CODES 
EL} ZO: CODES+(WB+BINCLI) /CLICO 
[2] OTCE), "CLIENT CODES" 
[3] +(END=CLI<D ) /eo 
I4] — +{WB2RCLICO.CLI) /EXISTS 
I5]. — +LO AFTER 'THIS IS NOT A CLIENT* 
(6] EXISTS: Ub «ADDRESSES(A; 301,' / VALIDATE. 
(71 >CNte OE )/L0 
v 


If the client exists, E takes its index in the data for a value. 


In order to check the name, we display, in line [6], the first 30 
characters of the address, by the bare-output method, already used. The 
simplest and most efficient means of using the answer consists of 
detecting the presence of the letter N in the answer. 


- if the user replied NO, NON, NIET or WEIN, the presence of 
the letter W sufficies for it to be established that it is 
not in agreement on the identity of the client. Hence we 
return to the beginning of the function. 


if the user replies YES, OUI, or typed a simple carriage- 
return, the absence of Y suffices to validate the client 
code. 


If we wish for greater security, we have to check that the user has 
answered precisely YES. 
We could thus use the expression: 


"YES! A.= 3H (GEPA'. ) /REPAUI 


Generally, however, the method advised above is quite adequate, and far 
less restrictive for the user. 


BLOCK-HEADS 


NUMBER will contain the number of blocks to be plotted [1]. 


Since the left-hand argument can have either one or two values, we obtain, 
by the expedient of instruction [2], a vector of two values, of which the 
second is either 5 or the value used as argument. 


We multiply the values given by the vertical scale, and take the rounded 
figure. Moreover, as it is easier to count numbers of lines starting at 
the top of a matrix, we will plot the diagram upside down, and return 
it at the end of the processing. That is why we reserve the values 
supplied by e [3]. 


The positions of the horizontal lines are thus given by +\(1)REP 
increased by 1, since we must plot a horizontal dotted line in 
order to conclude the graph at the bottom [4]. 


For the same reason, the heights of the blocks are given by 1++/[1]REP 
and the total height of the diagram is given by the height of the biggest 
block: MAX + [/HEIGHT (instruction [5]). 


v R«SCA BLODIAG REP ;NUMBER; WIDTH; HEIGHT; LINES ;MAX;LI;COL;BNO 
I1] NUMBER + ~1+pREP 
[2] WIDTH + (SCA+24SCA,5) [21 
13] REP ~ e LO,5+SCA [4] «REP. 
[CH LINES + +\(1) 1, ll ]AEP 
(5) MAX + S/HEIGHT + 1+ */|1]REP. 
61 HEIGHT + (0,HEIGHT)T (HEIGHT ,0) 
17) R + (MAX, 14MIDTHXNUMBER)o * ' 
(81 RDAEIGIT(1] ;1]e' I" 
[21 COL + 1XiWIDTH 
[10] BHO «1 
[11] ZO: LI + DINES (; BNO] 
[12] — RILI;COL)e'-" 
(13) — RIVHEIGHT{BNO+1] ; 147 14C0L]e* 1" 
i4] COL + COL«WIDTH 
[5] — +(WUMBER 2 BNO«BNO+1) /Lo 
6) R+ OR 

v 


1f there are 6 blocks, there are 7 vertical separation dotted lines. 
Their height is equal to the height of the biggest of the two intermediate 
blocks [6]. 


We can thus define an array of characters, R, the height of MAX, 
and of width 1«NUMEERXWIDTH (instruction (7]). Its first column is a 
vertical dotted line of height HEIGHT(1] (instruction [81). 
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We now place the horizontal and vertical dotted lines block by block 
by means of a loop. BNO is the number of the block plotted. We make 
it vary from 1 to NUMBER (instructions [10] and [15]). 


COL represents the positions of the horizontal dotted lines in the columns 
of R. There are WIDTH-1 of them, LI gives the height at which these 
dotted lines must be placed [11]. 


We thus write dashes in the lines LI and the columns COL in instruction 


(12). 
The following column will contain a height dotted line HEIGHT (BNO+1) 


It therefore suffices to increase the indices of columns by the width 
of one block [14], and to recommence upwards to the last block. 
In the last instruction, we re-erect the diagram, which was upside down. 


The function obtained is considerably more complex than the function 
MULTIBLO, already written. 


FOR THE REALLY KEEN 


It is possible to do better still. We will imagine that the global 
variable HEDWO is a matrix of characters containing words relating to the 
lines of the right-hand argument: 


FRANCE 
ITALY 
SWITZERLAND 


We can consider inserting these references into the boxes thus: 


l ] 
s = | SWITZERLAND | I 
FITAERDAND | | SWITZERLAND | 


| I 
1 1 
| SWITZERLAND | Si 
I 
li 


Don't you feel an irresistible urge to solve this problem? 


OIL TO THE FLAMES 


DATA STRUCTURE 


The vectors CODE and PRICE and the matrix PRODUC! have already 

been defined. For, reasons quoted in the topic "Ahead of 

the client", these data will have fixed dimensions. Some positions will 
be occupied by bits of information, whereas others will be still unused. 
A binary vector, BINPRO, will indicate the occupied places (1) or free 
places (0). 


In order to represent the compositions of the derivatives, we will use 

a second set of data. 

The vector DERIVCO, of variable length, contains the codes of the derivatives, 
whose price will have to be calculated at each modification. 


An array of three dimensions, COMPOS, contains, in the order indicated 
by DERIVCO, and for each derivative: 


- in its first plane COMPOS[1;;] the QUANTITIES of each 
product used in'its composition. 

- in its second plane COMPOS[2;;] the CODES of the products 
which it comprises. 


This array is 10 columns wide, since a product cannot have more than ten 
components. 


Here, the initial values are as follows: 


DERIVCO COMPOS 
210 83 17 o o o o o o o o 
320 85 15 o o o o o o re} 0 )QTES 
337 3 90 T o o o o o o o 
207 208 o o o o o o o o 
209 318 o o o o o 0 o 0 (CODES 
318 332 333 o o o o o 0 0 


It is seen in this set of data that product 320 comprises 85% and 15% 
of products 209 and 318 respectively. 


A similar solution would have consisted of nothing in the second plane, not 
the codes of the products but their INDICES in the vector CODE. This 

can obviate some calculations, but in the event of error, or during the 
set-up phase, a code is easier to interpret manually. 
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PROCESSING FUNCTIONS 


PRINT-OUT OF THE COMPLETE CATALOGUE 


When a product is erased, we place a zero in the vector BINPRO but its 
code continues to be present in the vector CODE. The place thus left 
empty will doubtless be re-used by a product whose code will be higher. 
Hence the codes are in any order. The position of the codes to be 
printed is obtained in [1] and the order in which they will have to be 
printed is obtained by classifying [2]. 


Simple indexing enables the information required to be extracted in a 
suitable order. The two numeric vectors are printed vertically by means 
of the auxiliary function VERT, written at the beginning of this book 


V PRINPROD ;POS;C;P 
[1) — POS-BINPRO/ipBINPRO 
[2]  POS-POS|ACODE (POS]] 
D) " 
la] 'CODE PRODUCT PRICE* 
B^ 
[6] — C«4 VERT CODE [POS] 
[7) P+? VERT PRICE {POS} 
[8] — C, ' ',PRODUCT (POS; ,P 
v 


INTRODUCTION OF NEW PRODUCTS 


The first step consists of placing the highest code number in C. We then 
increase this value 1 by 1 in order to assign a code to the products 
introduced, 

A loop then displays the code of the product to come [5]. We have used 
the "bare-output" technique so that this number is on the same line as 
the description, 

If this description DESCRIBE is empty, it is because the user has finished 
ion 


If not, we must look for the first empty piace in the data. It is given 
by the first zero featuring in BINPRO; instruction [7]. 


We can now introduce the code and decription in the suitable positions 
[8 and 9]. Beware, however: it may be that no place in question has been 
occupied before by another product, which has since disappeared. Its 
price thus remains in place , and we must take care to cancel it in order 
to avoid confusion, whence instruction [10]. 
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V INTROPROD ;C;DESCRIBE;POS 
n C-T/CODE y 
Bo n 
(31 "CODE DESCRIPTION* 
(41 d 
15] — Lo: Ü eot 4 0 * CeC+l 
16] + (O-pDESCRIHE-GVII ) /0 
(7) — POS-BINPROiO 
[8] —— PRODUCT[POS; | -204 DESCRIBE 
(9]  CODEI[POS]«C 
[10]  PRICE(POSj«0 
[11] — BINPRO(POS)+1 
112] +Lo 
v 


When updating is finished, a 1 in BINPRO concludes the work (instruction 
[11]] and a loop continues [12]. 


If an interruption should occur between instructions [9] and [11], and the 
data is safeguarded in this state, the last code introduced would be 


present, although not corresponding to any actual product. 
The following product would be assigned the code immediately higher. 


INTRODUCING OR UPDATING COMPOSITIONS 


An auxiliary function VERIPROD questions the user, and registers in 


PRO either the code of the product whose composition he wants to 
introduce, or zero if he has finished [1]. 


In [2 and 3] we introduce the composition of the product. Provision is 
made here so that we can withdraw by typing END, which is a luxury 
precaution. END is a global variable which equals *l. 

In [4 and 5] we must check that we have introduced an EQUAL number of 
values. If this is indeed the case, we can structure them into a matrix of 
2 lines: one line of quantities and one line of product codes [6]. 


In order to establish whether the components indicated indeed exist, we 
must see if they belong to BINPRO/CODE. In the event of an anomaly, 
the unknown codes will be displayed. This is achieved by instructions 
[7 and 8]. 


A test [9) serves to determine whether the derivative already features in 
the list of derivatives. If this is not the case, it must be added to it 
{instruction [10]), and a line of zeros added to the two planes of the 
COMPOS array (instruction [11]). 


In [12], we calculate the index of the derivative in the vector DERIVCO. 
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It remains only to place the composition introduced in this line [13]. 


At the end of the work [15] an auxiliary function, CALPRICE, recalculates 
ALL the prices. This function will be studied in detail later. 


V UPDCOMP ;CP;PRO;COMP;BIN;LI 
[O] L0: +(=0PRO«VEREPROD) /LS 
[2] Zl: "COMPOSITION [END]' 
[31 +(ENDECOMP+,0) ) /LO 
[5 (0-210 C0MP) /L2 
[5] — -Ll AFTER ‘UNEQUAL NUMBER OF VALUES* 
le} L2: COMP«à ((0.5xpCOMP) ,2}pCOMP 
[7] — -—(^/BIN-COMP [2; JeBINPRO/CODE) L3 
18] +L1 AFTER'PRODUCTS UNKNOWN : * ,¥(~BIN)/COMP{2;] 
[9] L3: »PROeDERIVCO)/LA 
[10] DERIVCO«DERIVCO,PRO 
[11]  COMPOS«COMPOS, [2] O 
[12] La: LI«DERIVCOVPRO 
113]  COMPOS|;LI;]- 2 10*COMP 


[14] +L0 
[15] £5: CALPRICE 
v 


In line [3] note the ravelling, O for the case where the user would 
introduce only a sinlge value. 

Also, in line [4], note the use of the RESIDUE function (I) to determine 
the remainder of the division of pCOMP by 2. 


THE VERIPROD FUNCTION 


This function checks that a product code typed on the keyboard indeed 
exists. N.B: some codes may correspond to products which have since been 
erased, whence the compression by BINPRO, 


V ReVERIPROD ;CP 
[1] ŁO: LP,'PRODUCT CODE (END]' 
121 +(END=CPe**p 0) /RO 
13]. — +(CPeBINPRO/CODE)/11 
(4] — Lo AFTER 'PRODUCT UNKNOWN* 
t5] Ll: Ü «-PRODUCT(CODEVReCP ;1,' ; VALIDATE....." 
te] -UN'cE )7L0 
v 


Note that in order to provide for the introduction of a vector, " pD gives 
a scalar. 


In [5] the "bare-output" technique enables us to display the product name 
and to await the reply on the same line. If the user types NO or NOW or 
NIET, etc ... the presence of 'N' in his answer returns to LO. If not, we 
assume that he accepts the product as being correct [6]. 
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PRINTING THE COMPOSITION OF DERIVATIVES 


The printing order is increasing order of the vector DERIVCO (instruction 
I2]). We then take the derivatives one by one, starting with the first 
13}. 


POS is the position of a derivative in CODE, We extract its composition 


(percentages and component products) in [5]. We then eliminate the zero 
values from this [6]. 


V PRINCOMP ;COMP;I;POS;ORDER 


tii LP, 'CODE PRODUCT COMPOSITION',LF 
(21 ORDERCADERIVCO 
[3] Lo: I-''gORDER 


(4] POS+CODE\DERIVCO (I) 
[5] COMP<COMPOS[;I;) 
16] — COMP (COMP (1; 140) /COMP 
17] COMP- 6 0 » & COMP 
(8] COMP; 2]+"+! 
[93)  COMP[;8]e'P' 
[10] (4 OWDERIVCO(I1),' ',PRODUCTIPOS;],' ',24,COMP 
Dl] — +(0<pORDER+LVORDER) /LO 
v 


After transposition and formatting [7], we can insert a colum of +'s 
and a column of P's. Ravelling this matrix will give the vector of 
the compositions to be printed in [10]. 


The processing continues toexhaustion of the list of derivatives, by 
means of a loop [11]. 


Note: LF is a gloabal variable, which contains the line feed. 


UPDATING THE LIST OF PRICES 


ALL is the list of the only products whose price can be modified, i.e. 
those: 

- which exist (information given by BINPRO), 

- which are not derivatives: CODE DERIVCO 
Instructions [2 and 3] serve to introduce the list of products whose 


price will be introduced. Of course, they must belong to the list 
above, otherwise an error message is emitted [4-5]. 


This check having been made, we can calculate the position POS of these 
products in the different data [6]. 
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V UPDPRICE ;ALL;BIN;POS;SAME;CP 
(1) ALL (BINPRON-CODEe DERIVCO) /CODE 
121 Li:LP,'WHICH PRODUCTS [ALL, END)" 
BI +(ENDecP+0)/o 
[4] +(e /BINeCP ALL) /L2 
[5] Ll AFTER ‘NOT FITTING : ', *-BIN) /CP 
[6] — L2: POS-CODE.CP 
17) — L3: Pe''oPOS 
[8]  SAME-PRICE(P] 
[9]  PRODUCTIP;] 
(10)  PRICE(P]-«l' 'ol 
(11] +(0<pP05+14POS) /L3 
[12)  CALPRICE 

v 


Thus, product by product [7]: 


- we look for its price, which is called SAME (instruction [8]), 


- we display its name [9] 
- we collect its new príce, which directly updates the price 
vector [10]. 


A loop serves to survey all the products chosen (11]. The function 
CALPRICE then calculates the prices of derivatives. 


ERASING A PRODUCT 


Erasing a product is performed simply by introducing a zero in the correct 
place in BINPRO.[4]. We check the code and the product name beforehand 
by means of the VERIPROD function, already used [1] 


We also check that the product to be erased is not used in the composition 
of other products [2-3]. If this were the case, an anomaly message 
would be printed [6 and 7]. 


V ERASEPROD ;PRO;DERIVE 
[1] — LO: +(O=PRO«VERIPROD} /L2 
[2] — DERIVE«(COMPOS (21 ; ] V .-PRO) /DERIVCO 
[3] — +(O<pDERIVE)/L1 
[4] — BINPRO(CODE\PRO]+0 
[51 +LO 
[6] Zl: ‘THIS PRODUCT IS A COMPONENT OF ; ',"DERIVE 
[7] — »Lo AFTER ‘I? MAY NOT BE ERASED' 
[8] — L2: '----» END 
v 


CHANGE OF STATE 
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This process is very similar: 


- checking the code and name by VERIPROD, 


- if the product is not a derivative, print-out of an anomaly 
message [2-3], 


if not, BIW is a binary vector which serves to erase the 


product of DERIVCO and COMPOS (instructions [5 and 6]). 


We can therefore update the price, possibly by reference to the old one 


{7 to 10]. 


Here again, CALPRICE solves to correct the prices altored by these 


modifications. 


V ERASECOMP ;PRO;BIN;SAME;POS 
LO: -(0-PRO-VERIPROD)/L2 

+ (PROe DERIVCO) /L1 

-Lo AFTER 'THIS PRODUCT IS NOT A COMPOUND! 
Ll: 

DERIVCO+ (BIN+-DERIVCO#PRO) /DERIVCO 
COMPOS-BIN/|2) COMPOS 

SAME+PRICE (POS--CODEVPRO] 

'NEW PRICE [SAME]? 

PRICE (POS}<t'"*pO 

»Lo 

CALPRICE 


CALCULATING PRICES 


UNKNOWNS is the list of products whose price must be calculated. At 
the start, this is all the derivatives {l}. 


ni 
[2] 
I3) 
141 


V CALPRICE ;UNKNOWNS;AGAIN 
UNT.NOWNS-DERIVCO 

LO: +{0=AGAIN© 1 +UNKNOWNS) /0 

PRICE (CODE\AGAIN) + PRODPRICE AGAIN 
LO 

v 


If this list becomes empty, AGAIN takes the value zero, and we leave the 


function. If not the PRODPRICE function calculates the current price 
of the product and updates the PRICE vector (instruction [3]). 
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Of course, in order to calculate this price, PRODPRICE has perhaps 
calculated other prices, and UNKNOWNS could have diminished accordingly. 
This PHODPRICE function constitutes the most delicate: part. 


PRODPRICE receives a code or a list of codes as operand. If they 
all have known prices, it suffices to consult the vector PRICE, to 


receive the appropriate prices as result [2 and 3). 


If, on the contrary, some products feature in UNKNOWNS, we proceed with 
the calculation properly speaking: 


7 seeking the index of the product [4], 


extracting its components [5], 


- eliminating the zero values in the components [6] and in 
quantities [7]. 


1t ís sufficient to multiply the quantities (in 4) by the prices of 
the component products. However, as there is a risk that some prices are 
unknown, we use PRODPRICE to calculate them. 


This funciton summons itself, it is said to be RECURSIVE. 


Each time that the price of a product is known we erase its code from 
the list of unknowns [9]. 


V RePRODPRICE P ;IP;BIN;QTES; COMPONENTS 
(2)  +(PEUNKNOWNS) /CALCUL 
(2) RePRICE (CODEYP} 
D] 40 
[4] CALCUL: IPe''oDERIVCOÓiP 
[5] — BIN« Of COMPONENTS+COMPOS [2; IP; ] 
[6] — COMPONENTS-BIN/COMPONENTS 
(7) — QTES-BIN/COMPOS (1; IP;) 
(8] — H«[O.01xQTES «.x PRODPRICE COMPONENTS 
[9) UNKHOWNS+ (~UNKNOWNSEP) / UNKNOWNS 
v 


Successive calls for the function by itself end when all the components 
of a product are basic products, or they have been calculatéd during 
a preceding operation. 


This way of solving the problem is perfectly logical, and simpler to 


program than methods employing the explicit arborescent search which mutually 
associates the products. 


If you have done everything, well done! 


THREE PUZZLES 
THEME l 


V ReLONG JUSTIP TEXT — ;POSII 
[O] — POS + (TEXT-' *)/I«TEXT 
12] — I«I, (LONG-pTEXT) POS 
[3] ReTEXTU (A3) 

v 


In [l] we look for the positions of the blanks in the text, whereas 
I receives the series of whole numbers from 1 to pTEXT. 
For example, consider the vector 'A TEXT TO BE SEEN' 


POS equals 3 9 14 
I is the series of whole numbers from 1 to 18. 
In this way, 7EXT(1] would give the text itself. 
In [2] we supplement I with the positions of the blanks, to bring it to 
the required length. For example if LENGTH equals 25, we supplement I 
with 7pPOS i.e: 
3 9 14 3 9 14 3 


In this way, TEXT(1] would give the initial text followed by the number 
of blanks necessary to give it the correct length. Re-arranging I, we 
obtain: 


12333345678999 10 11 12 13 14 14 14 15 16 17 18 
TEXT|I|À[]) thus enables the excessive blanks to be distributed at the 
positions of theexisting blanks. We obtain the result below, indicating 


the blanks by the ^ sign. 


A-.. TEXT. . T0... BE. --SEEN 


THEME 2 


v R«N REPRO V ;lIO 
[1] Oro+o 
(2) ReVit\ (it+/N)e+\¥] 

v 
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The trick consists cf creating a binary vector which has the length of the 
vector to be created, and which has a l at the beginning of each sentence. 
It is preferable to work in origin 0, whence the first instruction. 


We will consider the example 3 2 4 REPRO ‘ROT’ 


+W equals 3 5 9 


it/¥ equals O 1 2 3 4 5 6 7 8 because of the origin of 


the indices. 
(it/N)e+W gives 0 0 0101000 


a scan by the sum gives: 0 0 O 1 1 2 2 2 2 
This is indeed the set of indices required to obtain the vector sought. 


*ROT'(O 0-0 1 1 2 2 2 2j 
RRROOTTTT 


This solution is not suitable if the left-hand argument contains zeros. 
Never mind! a minor modification would take us back to the preceding cas 


V ReN REPRO V ;0O IO 


ni Ve (NAO £0-0) /V. 
[2] BeV [+\ (14/8) S QAO) /N] 
v 


THEME 3 


The problei consists of adding the scattered values in a matrix. We 

know that we can achieve this by simple indexing. 

On the other hand, we can readily ravel the matrix DIST and index the vector 
thus obtained. 


In order to ascertain the indices of the elements to be extracted we 
will convert the couple Origin*Destination by a method very similar 
to that of the PLACEIN function (see course, page 179). 


VR+D BUST 
QQ Te(7147), [0.5] (147) 


(21 Tel«(pD) 4 T-1 
13] Ret/(,D) (71 
v 


We start by creating a matrix whose first line contains the departure point 
of each simple journey, and the second contains the point of arrival for the 
journey 2 5 1 3 6, we obtain the matrix: 


251 


3 
5 13 6 


-166- 


Hence each column constitutes the set of indices which enables the distance 
travelled to be extracted from the DIST matrix. 


The second instruction gives the corresponding index in the vector ,D. 


2 5 becomes ll 
5 1 becomes 25 
1 3 becomes 3 
3 6 becomes 18 


Hence, 


In the last line, (D,){11 25 3 18] gives 10 6 7 3, the total of 
which gives the total distance travelled. 


If we wish to be able to accept matrices of journeys, we must slightly 
modify the function: 


- we must ensure that we have introduced a matrix in the right- 
hand argument. To this end, the first instruction has the 
effect of transforming a vector into a matrix. 


- we must effect a shift on the columns of this matrix, which 


requires modification of the left-hand argument of the function 
+. 


The remainder is unchanged: 


Y ReBUS T 
UI — Z-(2* 1 LT? 
(201 —Te(0 TLT), [0.5] (0 147) 
i3] — T3«(D)iT-1 
14) Rec GD) (T) 
v 


TABLE OF FUNCTIONS 


* indicates functions of general interest, likely to feature in an initial 
"kit of tools", after some possible adaptations. The page numbers refer 
to the answers. 
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* AFTER 114 GETCLI 183 * REPRO 164 
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